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Foreword 

by Tim Hartnell 


Welcome to this book on programming with the ZX computer. 
Small in size, the performance of the Spectrum and ZX81 can 
be most impressive, and this book by Robert Speel is the key 
to proving just how impressive the Sinclair computers can be. 

The author and I held many discussions while the book was 
being written, as we worked out the topics which were most 
likely to be of interest and benefit to programmers. At first we 
concentrated entirely on games programs, then realized that 
this could needlessly limit the value and scope of the book. 
Therefore, although the emphasis is on games programs, and 
games programming, we have several more serious programs 
to show how the Spectrum and ZX81 can earn their keep. How¬ 
ever, the games techniques will serve you well, no matter which 
type of programs you eventually write. 

Such programs as Hero Maker and Knight Fight are as good 
as much of the better commercial software available, so you are 
in for a great deal of enjoyment when you enter and run the 
programs. However, the value of the book would be 
diminished if you saw it only as a collection of programs to type 
in and run on your computer. By all means use the programs 
just as they are at first, but then make them departure points 
for your own program development and customizing. This 
way, you’ll put your own stamp on the programs, and will 
develop your programming skills. 

The book contains the key to better programming on your 
computer. It is up to you to turn it. 


London,1982 




Introduction 


If you have read your user manual and want to improve your 
collection of programs and your programming skills, this is the 
book for you. I have included many programs which are 
different from those found elsewhere. Each program is accom¬ 
panied by an explanation of listing, which tells you what each 
section of the program does and discusses programming 
techniques used. 

I have started off by looking at Spectrum colour and sound, 
which can enhance many programs considerably. Palette, 
Lightning and First Contact are among the programs which 
highlight these features. 

Then there are chapters on user-defined characters, which 
are among the Spectrum’s most powerful features, and I have 
included some programs for these. High-resolution graphics 
are next, with some short programs which show their use. 
There is a section giving more general information, including 
a series of modules to move objects under user control, and a 
discussion on ways of avoiding problems with programs. You 
will find a number of suggestions to help you debug your 
programs with minimum fuss. 

A series of longer programs follows. My 3-D Maze uses high- 
res graphics to draw your view of the path ahead: you must 
escape from the maze as quickly as possible - a ‘help’ option 
is included for the frustrated. In Boat Race, you can bet on one 
of four small user-defined craft in an attempt to win a fortune. 
Sheepdog puts you in the dog’s position, trying to herd four 
sheep into a neighbouring field. A veteran sheepdog can 
attempt six sheep, which need chasing through a sheep-dip too! 
The next program, Knight Fight, places you on horseback, 
jousting against a fierce opponent: when one contestant is 
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unseated the battle continues on foot and you use your chosen 
weapon to defeat your enemy. In Space Raider you command 
a small spaceship under attack by three different types of alien, 
each with its own way of getting you. 

A couple of serious programs are next. Probability Check 
takes a look at random events. Wave Addition shows 
destructive and constructive interference using multi-coloured 
high-res graphics. 

To help you use the many ZX81 programs in this book and 
elsewhere, I have included a section on converting programs to 
the Spectrum. 

The Patterns section shows ways of making effective use of 
low-resolution graphics as found on the ZX81, and a powerful 
drawing program - Screen Art - lets you design your master¬ 
pieces directly on the screen. 

Text Display and Avoid are two of the shorter programs in 
the book, fitting in IK, and use sideways and vertical scrolling 
respectively. ' 

The next program. Hero Maker, is one of my longest 
programs, and one of the most important in the book. If you 
are a fan of fantasy role-playing games you will understand this 
game very quickly. You will be pleased to see that, unlike many 
computer Adventure games, this program runs differently 
every time and you will face fierce monsters guarding treasure, 
weapons and life-giving water. 

For a more peaceful game, you can play a relaxing round of 
golf in Fairway, a graphically illustrated course. To sate your 
desire for space games, Alien Descender makes you, for once, 
the alien, sinking down a narrow gorge in the sea depths, 
avoiding the walls and the occasional depth charge. Asteroid 
Belt puts you at the outskirts of an asteroid swarm and if you 
survive at first, the asteroids get bigger and more frequent. 

To put the ZX81 in a perplexing situation, in Amaze you 
draw the maze for the computer to solve. 

Rabbits is a semi-serious program in which you are trying to 
breed valuable rabbits with rare characteristics. They breed, of 
course, according to Mendel’s laws of genetics, passing their 
unwanted blotches to their multitude of descendants. 
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The programs now turn completely serious. Base con¬ 
versions, to and from base 10, are useful IK programs. 
Quadratic Equation Solver and Right-angled Triangle Solver 
not only give answers to problems, but also explain the details 
of the methods used, showing all working-out. 

Compound Interest shows how your money can grow at a 
surprising rate from a modest outlay. With Bar Graph you can 
get a graphic idea of your monthly profits, perhaps from your 
cunning use of Compound Interest. Conversion rounds off the 
programs, and will convert centigrade to fahrenheit, radians to 
degrees; in fact any values in any steps if you know the con¬ 
version formula, printing out its results in a neat list which can 
be copied on the ZX Printer. 

Finally, I have discussed ways of making a cassette 
collection, and how to try to solve hardware problems. Other 
useful information includes a glossary of terms used and report 
codes. 

As you begin to adapt, enlarge and transform my programs 
into your own, I think you will find the explanations of listings 
very useful in making you a better programmer. 

Best of programming, 


S. Robert Speel 
Eastcote, 1982 


Note 

Later models of the ZX81 and all models of the Spectrum call 
the NEWLINE key ENTER. If your computer has an ENTER 
key, all references to NEWLINE refer to that key. 




Spectrum Colour 


The ZX Spectrum’s name is actually derived from its colour 
capabilities and there are several commands dealing with 
colour. There are some very powerful features, such as the fact 
that all 8 colours can be used at once, with both text and hi-res 
graphics, and the ease of using the commands. 

Here is a short summary of the colour commands. For all the 
colour commands, codes are used for each colour. These are: 

0 Black 

1 Blue 

2 Red 

3 Magenta (purple) 

4 Green 

5 Cyan (pale blue) 

6 Yellow 

7 White 

There are 32 columns and 22 lines of characters on the upper 
(easily accessible) part of the screen - 704 character positions 
in all. Each of these has a foreground colour INK, and a back¬ 
ground colour PAPER. Each position has two possible levels 
of brightness and can be normal or flashing. Together, the 
INK, PAPER, BRIGHT and FLASH numbers are called 
ATTRibutes of a character. All the commands can be set 
globally - i.e., so that all PRINTing and PLOTting after the 
command will have that ATTRibute. This is done by a simple 
line without PRINT or PLOT. To make the ATTRibute come 
into effect all over the screen, CLS is used. Thus to set red INK 
on blue PAPER, flashing and bright, you could use 


100 INK 2: PAPER 1: FLASH 1: BRIGHT 1: CLS 
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The colour commands can be set for just one PRINT or PLOT 
command by placing the colour command after the PRINT or 
PLOT, followed by a semicolon - e.g.: 

PRINT INK 2; PAPER 7; FLASH 1; “Hi there” 

If you are using PRINT AT, colour commands go before the 
AT. In fact, you can change within one PRINT statement 
several times: 

PRINT INK 7; PAPER 1; “HELLO”; FLASH 1; A$; 

FLASH 0; INVERSE 1; AT 10,4; “Press any key”; INK 4; 

PAPER 0; AT 15,12; B$ 

BRIGHT and FLASH can be set to 0 - off, or 1 - on, al¬ 
though whether a character is BRIGHT or not is often very 
difficult to tell. 

INVERSE and OVER can also be set to 0 or 1. 

INVERSE 1 swaps the dot pattern in a character, so Is (dots) 
become noughts, and vice versa. Note that this is not the same 
as swapping the INK and PAPER colours (although it appears 
the same on screen) and these remain unaltered. 

OVER 1 adds any new characters on top of the old ones on 
the screen. So if either has an INK colour at a point, the 
resulting character will have an ink spot. But if both dots are 
ink colour, the result is paper colour. This is an XOR 
(Exclusive OR) function, giving ink if the first character has ink 
at a dot position or the second has ink there, but not both. 
INVERSE and OVER are used in the same way as FLASH and 
BRIGHT. 

Two other commands, INVERSE VIDEO and TRUE 
VIDEO, are treated rather vaguely in the manual. They are 
more comparable to the graphics key than any other 
commands, as there is no indicator in the listing except the 
actual ‘inversed’ or graphic characters. 

You can use INVERSE VIDEO to PRINT white on black 
inside the quotes of PRINT statements. 

If you press INVERSE VIDEO, followed by GRAPHICS, 
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all the graphics are reversed, so the graphics you normally get 
by pressing a number key are then produced with CAPS 
SHIFT and the number key. To get back to normal mode from 
INVERSE video mode press TRUE VIDEO. 

Note that the cursor is often reluctant to go over inverse 
characters, and you may have to persevere strongly. You can, 
just by EDITing a line and pressing INVERSE VIDEO, get 
the whole line (except the line number) in white on black. 
When you put the line back by pressing ENTER the whole of 
the listing after that point will change to INVERSE VIDEO. 
This will give you permanent inverse listings, including on the 
ZX Printer. However, PRINT statements in the inversed lines, 
even though their contents look inversed, will PRINT on screen 
in normal mode (unless separately inversed). You will only 
fully understand these two commands with practice. 

Here are a few programs which use some of the above 
commands to produce interesting and very colourful displays. 


Colour Spectrum 

To use 

Press RUN and watch. 

The program produces a highly colourful display showing 
all the Spectrum colours in squares. It changes these by 
considering the ATTRibutes of each character square and 
adding 1. 

Notes on listing 
10 PRINT lines of colour. 

20 If paper colour <7 then goto 40, and add 1. 

30 Change paper colour to 0. 

50 Repeat for random number of lines. 

60 Necessary as lines 40 and 50 used by the second part of the 
program as well as the first. 

70-80 Same as first part of program, but starting at bottom of 
screen instead of top. 
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1 REM Colour Spectrum 

10 RANDOMIZE : FOR f=l TO SO: 
FOR g =0 TO 7: PRINT PAPER g;” 

; NEXT g: NEXT f 

30 LET Z=l: FOR f =0 TO INT (RN 
0*32) : FOR g =0 TO 31'. IF ATTR if 
,g) <56 THEN GO TO 40 

30 PRINT RT f j,g; PRPER ©; " 

GO TO 50 

40 PRINT RT f,g; PRPER (RTTR < 

f,g)/s + i) j" ** 

50 NEXT g: NEXT f 

60 IF Z=2 THEN GO TO £0 
70 LET z=2: FOR f=£l TO INT tR 
NO*22) STEP -1: FOR g=31 TO 0 ST 
EP -1: IF RTTR (f . g ) <56 THEN GO 
TO 40 

SO PRINT RT f,g, PRPER 0;” ": 

GO TO 50 


Stars and Stripes 

To use 

Just press RUN and wait for a few seconds. 

This program DRAWs the star pattern in just four lines. The 
rest of the program PRINTs the stripes and occasionally swaps 
them round. Since the stripes are made of coloured squares, 
they do not show at all on the COPYed picture. 

Notes on listing 

10 The effect of this line is that the DRAWn pattern gradually 
appears as the program runs. 

Note that if you have a printer you can STOP the program 
after line 70, and COPY a seemingly blank screen to get the 
above pictures. 

20-70 DRAW picture and PRINT ZX SPECTRUM. 

Note that the same DATA is used to DRAW all the stars. 
100-140 Colouring routine. Gradually the paper colour is 
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changed, and the ink colour is altered to contrast. Every now 
and again the colours are swapped round and the routine 
repeats. 

500 DATA for star shape. 



Listing 


1 REM stars and Stripes 

2 REM © S»Robert Speet 

10 INK 7: PAPER 7: CLS 
20 FOR f=0 TO 1© STEP 10: FOR 
9=0 TO 10 STEP 1©: RESTORE : Pi-O 
T 4.0 + f ,9 : FOR h=l TO Q: REPO 3,b 
: DRAW a*Q0,b*30: NEXT h: NEXT S 
: NEXT f 

3© FOR f=0 TO 10 STEP 10: FOR 
g=0 TO 10 STEP 10: FOR h=0 TO 20 
0 STEP 200. RESTORE 

40 PLOT f+h,9+40. FOR i=l TO © 
. READ a , b: DRAU 3*20, b.U0; NEXT 
i •. NEXT h •. NEXT 9 NEXT f 
70 PRINT RT 10,15;"2X";RT 11,1 
2:"SPECTRUM" 
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100 FOR f=l TO 3Q0: LET a =TNT l 
RND*20) : LET b = INT (RNDfrS) *-4- 
11© PRINT PfiPER Cb/4.) ; INK 9.; O 
UER l; RT a , b,: “ " , AT a .+1b; " 

" ; RT a +2, b; ” ": NEXT f 

120 FOR f ~ 1 TO 3©S: LET a = XNT t 
RND*20) : LET b = INT (RND*8>*4. 

130 PRINT PAPER r?-b S4~) i INK 9, 
O'v'ER 1; RT a b; " ” ; RT a + l, b; " 

“ ; RT a+2,b.;" " : NEXT f 

14-0 GO TO 100 


500 DATA 1,2,I, —2,—2,1,2,1,—1> — 

2 ,- 1 , 2 , 2 ,— 1 ,— 2,—1 


Doorway 

To use 

RUN and watch. 

This program uses FLASH and OVER to achieve some very 
eye-catching colour effects. 



Notes on listing 

20-30 DRAW lower triangle and fill in with horizontal lines. 
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40 DRAW upside-down triangle and fill in solid. 

50 DRAW small ‘peak’ triangle and fill in solid. 

60 DRAW archway. 

70 DRAW horizontal lines in lower part of door. 

80 Fill in top of archway by DRAWing semicircles. 

90 Central vertical line. 

100 Colouring. The border is constantly changed and the g and 
h loops move down the door PRINTing in different colours 
giving a cascading effect. Note that the many horizontal lines 
prevent the flashing from being too dominant. 

Note what happens when the program stops. 

Listing 


1 REM Doorway 

2 REM © S,Robert Spee1 

10 INK 1: PPPEP 6. BORDER 3; J3 
RIGHT I: CLS 

20 PLOT 78,0: DRRU 50,100: DRFl 
LI 50,-180 

30 FOR f = 10i3 TO 1 STEP -2: PLO 
T 128 — f /2,100 — f : DRRU f,0: NEXT 

f 4.0 FOR f — 100 TO 1 STEP -1: PLO 
T 128— f/2,100+ f /2: DRRU f,0: WEX 
T f 

50 FOR f =0 TO 20: P\_OT 128- E , 1 
65-f: DRRU f *2,0: NEXT f 


60 FOR f=0 TO 10 STEP 10: PLOT 
88-f,20—f*2: DRRU 0,80+f*3: ORR 
U 80+f*2,0,-PI: DRRU 0,-80-F*3: 
NEXT f 

70 FOR f =20 TO 100 STEP 2: PLO 
T 88, f: DRRU INK 0;80,0: NEXT f 
80 FOR f=l TO 40 STEP 2: PLOT 
QUER 1,128—f,10O: DRRU INK 2; OU 
ER 1; S*f ,0,-PI: NEXT f 

90 PLOT 128,100: DRRU 0,-100 

100 FOR f=l TO 50: FOR 9=9 TO 2 
0 STEP 2: INK RND*8: FOR h=0 TO 
1: BORDER RMD*7. PRINT PRPER RNO 
*8; ODER 1; FLASH 1 ;RT g*h f 34;" 

” : NEXT h : NEXT 9NEXT 
f 
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This program shows how much you can cram into one program 
line. I had to put the REM statement at the end, as everything 
after the REM is treated as part of the REM, including the 
colon. 

The program uses FLASH and all 8 colours to great effect, 
but leaves some parts of the screen stable to give some relief to 
the eye. 


To use 

RUN and watch. 

Try altering the inverse spaces to normal spaces, or remove 
the FLASH to get a totally different effect. 

Note that the pattern COPYed using the ZX Printer is not 
apparent on the screen at all. 


Listing 


10 FOR e =0 TO 5: FOR f=0 TO 9: 
FOR g = f TO 20 — f STEP (2+e) : FOR 
h=f TO 30 -f STEP (2+e): PRINT F 
LRSH INT (RND*2)J INK f; PRPER R 
BS (T-f};fiT INK RBS 17- 

fi; PRPER f; " "RT g +i, h ; ’W “; IN 

K f; PRPER RBS (7-f J;“ ": NEXT h 
: NEXT g: NEXT f: NEXT e: REM Fl 
ashctash © 1982 .S.Robert Speel 


Palette 

This program allows you to get lots of extra colours from your 
Spectrum. With a ‘chessboard’ user-defined graphic, we can 
blend ink and paper colours to produce many new colours. This 
program goes through the whole range. 

To use 

RUN to give the first colour - black. The ink and paper colours 
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are given. Press ENTER to get the next shade. Repeat the cycle 
through full range. 

Notes on listing 

10 Set up user-defined ‘chessboard’ pattern. 

20 For all 8 paper colours, 8 ink colours, and for each of 21 
lines. 

30 Print line of chessboard graphics. Note these are graphic 
As, not normal capital letters. 

40 Print ink and paper colours, instructions to press ENTER. 
50 Repeat when key is pressed for all combinations of ink and 
paper. 

Listing 


1 REM palette 

2 REM © S-Robert Speet 1982 

IB FOR f =0 TO 7 STEP 2: POKE U 
5R CHR$ lii+fyl/0: POKE USR CMR$ 
14-4- + f +1, S5; NEXT f 

20 FOR f=0 TO 7: FOR 9=0 TO 7: 
FOR h=0 TO 20 

30 PRINT PAPER f; INK s; ’ RRRRR 
RRRRRRRRRRRRRRRRRRRRRRRRRRR" 

4-0 NEXT h. PRINT RT 10 ,S; INK 
O; PAPER 7; "INK g; ” PAPER **; f} 
RT 21., 0; "press ENTER for next co 
lour" 

50 PRINT RT 0,0.; : PROSE 0: NEX 
T g: NEXT f 


2 X Res Colour Patterns 

This program uses a special user-defined graphic divided into 
four parts, one all ink, one all paper, and two intermediate 
shades. This means that using two colours - one ink, one 
paper - we can get four different shades in one character 
square, hence the name of the program. 

To use 

RUN and watch. 
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The program goes through all the colour combinations and 
takes a long time to run completely. Be patient at first. If you 
cannot wait, after a few minutes of RUNning, BREAK, and 
type GOTO 40. 


Notes on listing 

10 Set user-defined graphic which is used to give four colours. 
20 Fill screen with graphic. 

30 Part 1 POKE random position on screen with INK and 
PAPER ATTRibutes. 

This happens 500 times for each combination of INK and 
PAPER, but is worth waiting for. 

40 Now we have FLASHing colours, although these are not 
apparent at first. 

100 DAT A for 4-colour graphic. 


Listing 


1 REM £ x res Cotour Pattern 

2 REM ® 5.Robert Speet 19S2 

1© RRNOQfllZE ; PGP. f =0 TO 7. R 
ERD a. POKE U5R CHK'S l44+f,a: NE¬ 
XT f 

£0 FOR frrl TO 22; FOR 9=1 TO 3 
2: PRINT CHR$ 144;. NEXT 9: PRIN 
T : NEXT f 

30 FOR f=0 TO 63; FOR g=l TO 5 
00; POKE 22S28 + INT tRN£>*7®4 > , f : 
NEXT 9. NEXT f 

4-0 FOR f =123 TO 102; FOR 9 =1 T 
O 500; POKE 22528+INT f RN£>-*7®4.> , 
f; NEXT q: NEXT f 
100 DflTfl 240,240,240,24®,10,IBS 
,1®,IBS 



Spectrum Sound 


Use of sound on the ZX Spectrum is very easy: the single sound 
command, BEEP, is followed by two numbers, the first of 
which is the length of note, the second the pitch of the note. 
However, that is it. We cannot play more than one note at a 
time, and the note cannot change as it is played. Another 
problem is that when BEEP is used, all calculations stop. This 
means that you cannot have continuous sound while a program 
is doing something on screen. There is no white noise generator 
(white noise is used for explosions, growls and mechanical 
noises) which would be useful in many games. 

So what use can be made of Sinclair sounds? 

Firstly, it is used as a keyboard sounder, something that 
many ZX81 users buy separately. 

The keyboard sounder is rather quiet, so, if you want, you 
can make it more noticeable with a useful POKE: address 
23609 holds the systems variable PIP. It is normally set at 0, 
but you can POKE it safely to other values. POKE 23609, 30 
gives a short bleep which is louder than the usual click when 
a key is pressed. Try other values until you find one which suits 
you best. Numbers over 100 give bleeps that are too long for 
comfortable keyboard use. 

If we consider actual programs where sound is used, the 
BEEP command appears in a different light. For serious 
programs, including business programs, scientific, maths and 
programming-aid programs, the only need for sound is a short 
note to acknowledge inputted information, and perhaps a 
warning sound when the computer receives a wrong bit of 
information. The BEEP command can easily cope with this. 

Educational programs are similar in use of sound, but short 
trills or tunes may be used as ‘rewards’ when a set of questions 
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has been answered well, or a section of the program has been 
RUN successfully. Again, BEEP is suitable. 

Word games need few sound effects, so the main area where 
better sound effects are required is in graphic-based games. 
Many of these would benefit greatly from use of sound, and 
here we must be careful. 

Continuous sound while a game is being played is not 
possible, as the program stops while the sound is made. The 
best substitute we can manage is to have short BEEPs, duration 
0.1 or less, in the program. The noise can be made every ‘go’ 
(i.e., each time the main loop is executed), or a special sound 
used when firing, hitting, or whatever special activities 
(activities which do not happen every go) the program has. 
Longer sounds can be used for explosions and when winning 
(or losing) a game. This way we can achieve a fairly noisy game. 
Remember that many games need to be slowed down to be play¬ 
able, often with dummy FOR-NEXT loops. These can be 
replaced with BEEP commands. 

In most action games, the sounds required are not musical 
notes. For the clashing of swords, the hum of laser beams, the 
roar of a dinosaur, simple beeps are no good. Using BEEP, we 
can actually obtain quite a few of the more exotic noises. The 
trick is to use the fact that the loudspeaker cannot cope with 
very low or short notes. We can get a large range of clicks, 
thuds, beats and so on, useful for engine noises, running 
sounds and shooting noises, by BEEPing low or very short 
notes as well as some of the very high notes. 

If you wish to amplify these sounds, plug in the SAVE leads 
and press the Record button on your cassette recorder without 
pressing forward. 

1© BEEP .5,18: BEEP .7,U.5: G 
O TO 1© 

Si ren 

10 FOR f=i TO 50: BEEP .85,50- 
f: NEXT f 

Fast descending scale 
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1@ FOR f=l TO 10: BEEP ,01,1+f 
: BEEP .01,10: NEXT f: GO TO 10 

F i ring 


10 FOR f =1 TO 30: BEEP ,65,20: 
BEEP ,05,0: NEXT f 

Warning signal 


IS FOR f = l iu 10: dEcP .£>,4-0: 
PROSE ?: BEEP .5,4-0: PRUSE 35: N 
EXT f 

Digital watch alarm 


10 FOR f=l TO 10: FOR g=i TO 2 
: FOR h=i TO 3- BEEP .03,24-: NEX 
T h:: PAUSE 6: NEXT g: PAUSE 50: 
NEXT f 


Te lephotie 


10 BEEP .005,5: BEEP .005.-2: 
PAUSE 2. GO TO 16 


No * o r 

10 FOR f=l TO 10 STEP 2: FOR g 
=1 TO 10 STEP 2: FOR h=1 TO 10 S 
TEP 2: BEEP .1,f+g-h: BEEP .l,g+ 
h- f : BEEP . 1 , h + f -g : NEXT h: NEXT 
g: NEXT f 

Bacnground sound 

(eg. used “hite reading program 
instructions) 


10 FOR f —10 TO 20: BEEP .083.1 
0: PAUSE e-f/3. BEEP .003,5; PAU 
5E 6-f/5: BEEP .003.0. PAUSE 5-f 
✓5. BEEP .003,1. PRUSE 25-f: NEX 
T f 
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20 FOR f =20 TO 10 STEP -1: BEE 
P .003,10: PRU5E S-f/'S: BEEP .00 
3,5: PAUSE 6-fxS: BEEP .003,0: P 
RUSE 5 — f S5: BEEP .003,1: PAUSE 2 
5—f ; NEXT f: GO TO 10 

Galloping horses 


Lightning 

This program makes use of very short BEEPs to create a 
crackling noise, which sounds somewhat like lightning-cracks 
during a thunder storm. This noise is accompanied by bright 
flashes of‘lightning’ to give quite an effective display. 

To use 

RUN and watch. 

As the flashes occur randomly you may be faced with a blank 
screen for several seconds at a time. 

Notes on listing 

210-230 Main lightning routine. 230 selects a random stroke 
of lightning from the data list and DRAWs it. OVER is used 
to wipe it out. The random BEEP is very short to give a 
crackling noise. 

240 Longer crackling sound, using lower notes but for a longer 
period. 

9000-9070 DAT A for various shapes of strokes of lightning. 
Listing 

1 REM Lightning 

£ REM © S.Robert Speet 1932 

100 PAPER ©: BORDER 0: CL3 : RR 

NDOMIZE 

2S0 FOR f=i TO 10000 
£10 XF RND <.5 THEN PSUSE 
TO £4-0 


50; GO 
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22© LET x=RND*128+58; BORDER 6: 
PRPER 6: CLS : BORDER ©; PRPER 
©: CLS : LET q=9808+INT iRN£>»8) * 

10 

2S0 FOR g=S TO © STEP DUER 

1: INK g: PLOT X,i75: RESTORE O 
: FOR h =1 TO 6. READ DRAU 

11,12: BEEP ,081,RND*58; NEXT h 
: NEXT 9 

24-0 IF RND < . 6 THEN NEXT f: FOR 
2=1 TO 2©; BEEP „81#RND,-Z; NEXT 
2 : IF RND < . 5 THEN GO TO 24-© 

25© NEXT f 

9800 DRTft —38, -10,58 , —4-© , -It5 y 18, 
4-0 , —3© , —90 , —1© , 4-0 , —4-© 

9010 DRTfl 50,-4-0,-180,-10,10,-5, 

4-0 , -38 , -58 , -60,60 , -20 

9020 DflTR 38,-18, -28 , -28,4-8 , -18 , 

r 4©,-3©,10,-30,-4©,-58 

y©30 DATA -30,-10,58,-40,-10,18, 

48,-30,-98,-10,48,-48 

9040 DflTR 0,-50,40,-18,-38,-3,30 

,-18,40,-20,-5,-48 

9850 DATA -50,-5,18,-5,-5,-18,48 
,-28,-10,-15,65,-78 

9068 DATA -20,-40,30,30.20,-58.2 
0,30,-10,-48,38,-63 

9070 DATA 30,-40,-10,-20,30,10,- 
20,-40,10,-10,-90,-60 


First Contact 

This program shows use of sound in several different ways. 
Typical ‘arcade game’ noises when moving your base or the 
alien ships are used, and a firing noise where appropriate. 
There is an explosion noise, and a short beep when you press 
a key to start a new game. There is also a siren noise for when 
you lose and are taken away by ambulance. 

To use 

It is the year 2000 and some aliens from the stars have 
discovered Earth. They are sending down special envoys to 
make contact with their brother sapients. It is your task to keep 
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them at bay with your missile base and protect the status quo. 
You have 20 missiles. The aliens come two at a time and when 
you destroy one, another appears at the top of the screen. 
You move left and right with the 5 and 8 keys, and fire with 
the 7 key. You score 1 for each alien destroyed, and when 
your score reaches 5, you get 0, 1 or 2 extra missiles for every 
new alien blasted. The game ends when an alien lands. Your 
score and the current highscore are given. 

Notes on listing 

30-40 hs = the highscore, sc = your score, sh = number of 
shots left, t is set when you fire, and gives your current score 
and missile count. 

50 PRINT your base. 

100 Array x: contains the enemy spaceships’ co-ords, and their 
movement vectors, a is the x co-ord of your missile base. 
200-410 This is the main routine. You may wonder why one 
FOR-NEXT loop is not used, rather than 3 exactly similar 
loops at line 200, 200-400, and 400-410. This is because if 
the aliens are PRINTed separately, you get this sequence of 
events: (1) PRINT alien 1; (2) You shoot/move; (3) Move 
alien 1; (4) PRINT alien 2; (5) You shoot/move; (6) Move 
alien 2, goto step 1. This is fine unless in 5 you shoot at alien 
1. If alien I has moved, but is still PRINTed in the old 
position, you may shoot it dead, and it will reappear next go. 
To avoid this, we have this sequence: (1) PRINT both aliens; 
(2) You fire/move; (3) You fire/move; (4) Move both aliens, 
goto step 1. Now, whichever alien you fire at, it cannot be 
at one position and PRINTed at another. 

200-320 PRINTs both aliens, 210 deals with the aliens’ 
noise, 300 moves you, and makes a noise. 310-320 checks for 
firing, and has a firing sound. If you hit, goto 500, otherwise 
update ‘shots left’ at 550. 

400 moves both aliens. 

410 checks for alien landing and repeats sequence. 

420-490 Alien lands, ambulance comes to drag you off, score 
and highscore given and new game offered. 

500-540 You hit alien. Explosion and noise and bring new 
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alien on to top of screen at random position. Increment score, 
and missiles (if appropriate). 

550-560 Update score and missiles left. 

8000-8010 Set up user-defined graphics. 

8500-8530 DATA for user-defined base, alien, missile and 
ambulance. 


Listing 


1 REM First contact 

2 REM © S.Robert speet 19S2 

10 GO SUB 3000 

20 INK 0: PAPER B: BORDER B; C 

LS 

3B LET hS=B 

4-B LET SC=B: LET Sh=2B. LET t = 

1 

5B PRINT INK 5;RT 2B,13;CHR$ 1 

4-5 

IBB DIM X(6): FOR f =1 TO 4 STEP 
3: LET X(f)=INT IRNDf25)f3: LET 
X(f+li=l: LET X t f +2 > = 1: NEXT f : 
LET 3=10 

20B FOR F-1 TO 4 STEP 3. PRINT 
INK 4.;ht xtr + u.,x(f)-i;" • ; ckr$ 

144- ";RT X(f+I)-l.X(f)-X{Fr2); 
" •• : NEXT f 

21B FOR f -1 TO 4 STEP 3. BEEP . 
©5, F 

30© LET rs=a. LET 3 =3 + tINKEY$ = ” 
S") -(INKEY$ = "5") +(a <21 -ta >291 : I 
F rsoa THEN BEEP .81.26- PRINT 
INK 3; RT 2S_. 3-i; CHR$ 145 :” ** 

31© IF INKEY$=“7" RND £h>© THEN 
FOR q =lo TO 1 STEP -1: PRINT IN 
K 2; RT Q,a;CHR$ 146; RT g + I.. a;*’ " 

: BEEP .BBS. 40; NEXT <S - PRINT RT 
1.. a:" LET Sh=5h-1: LET t=l: 

IF a =X (1) OR a =X (4J i HEN LET :> C = 
SC+1; GO TO SB© 

32© IF t =1 THEN GO TO 550 
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4-©e NEXT f ; FOR f = 1 TO 4- STEP 3 
: LET X Sf+13 =X {f +13 + (RND V .5) : LE 
T X C f *23 =SGN C I NT (RND*33 -1 + fX ( f 
3 <23 - tx C f 3 >2B3 3 ; LET X(f)=X(f)+X 
t f +23 

4-10 NEXT f : IF X (23 (20 RND X (53 
<2© THEN GO TO 200 

4-2© PRINT PAPER &; RT 10,1, "fin a 
lien has landed .";RT 12,4-; “Your 
score is ";sc if sohs then let 

hS =S l 

4.30 PRINT INK s: RT 14.5; “Best s 
o far = ",-hs 


4-4-0 FOR f=0 TG a-3 STEP 2: ; PR I 
NT INK 7; RT 20 , f } “ “ : CHRf 14-7; C 

HR$ 148: BEEP .6,18: BEEP .7.14-. 
5: NEXT f 

450 FOR f-1 TO 10: BEEP -5,-50+ 
f: NEXT f 

4-60 FOR f =3 —3 TO 28 STEP 2: PRI 
NT INK 7; RT 20,f;" ”,CHR* 14-7; C 
HR$ 14-S: BEEP .6, IS; BEEP .7,14-. 
5: NEXT f 

4-7© PRINT INK 3 + INT (RND*53 ; RT 
1S,0.: "Rnothef gase? (Y/N) IF I 
MKEY$="y" THEN BEEP .5.10: CLS : 
GO TO 4-0 

4-S© IF lNKEY$=’*fl “ THEN BEEP .5, 
10: PRPER 6: BORDER 5: STOP 
4-90 BEEP .31, RND *50: GO TO 4-7© 

500 FOR f-1 TO 10. PRINT INK RN 
D*S.:RT X (23 * (a =X ( 13 3 + (X (53 RND ( 
a=x (4-3 3 3 ,a; ”B"; ; BEEP .©5,-RND+S 
0: NEXT f: PRINT CHR$ 3:“ “ 

51© IF a=X£4) THEN LET' X (53=1: 
LET X (4-3 - ZNT iRND*20i +5 
520 IF a=X(13 THEN LET X(23=l: 
LET X ( 13 =INT (RND*203 +5 
S3© IF a=xt4) THEN LET X(5) 

54-0 IF SC>5 THEN LET Sh=Sh+INT 
(RND*33 

550 PRINT ink S; RT 0 , 0 ; “Score = 
";sc;“ Shots left = ";sh;“ " 
56© LET t=0: GO TO 4-00' 

8060 FOR f= S TO 4-: FOR g =0 TO 7: 

RERD a: POKE liSR CHR$ (I4-4-+f3+g 
,a: NEXT g: NEXT f 
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801C- RETURN 

8500 DATA 129,189,219.126..60..£4, 
36.66 

8510 DATA 0,0,36,36,36,6©, 136., 12 
6 

852© DRTR ©,0,34., 24., 24., 36,0,© 
3530 DRTR 31,63,126.124,126,127, 
56,16,236,254,242,115,255,255,14 
, 4 . 



User-defined Characters 


All the letters and numbers, as well as the special graphic 
symbols and most of the other symbols, occupy one character 
square each. Each character square is made up of eight rows, 
each of eight dots, which can each be set to ink or paper. User- 
defined characters are characters where you, the user, design 
and program your own shapes. You have space for 21 different 
user-defined characters in any one program, though there are 
ways to get around this limitation and have as many as you 
want. 

User-defined graphics are very useful in games - small green 
aliens, robots, spacecraft, games paddles and so on. For mathe¬ 
matical and scientific programs, Greek letters, square-root 
signs and large matrix brackets may be needed. When maps are 
made on screen, symbols can be designed to indicate marsh¬ 
land, rivers, built-up areas and so on. Graphs, pie-charts and 
filing systems may also use special symbols. 

A user-defined character (user-defined graphic) is first 
designed as a black silhouette on an 8 x 8 grid of squares. Each 
row is then made into a binary number, a black square being 
a 1, and a white square, zero. So this ‘graphic man’ becomes 
8 binary numbers, like this: 



B 

IN¬ 

000 

1 1 

1 00 

R 

IN. 

000 

1 1 

100 

B 

iN 

10£> 

0 I 

000 

B 

T r-j 

011 

'I i 

1 1 0 

B 

IN 

0GS 

1 1 

10 1 

s 

IN 

00© 

i. 1 

i o. ^ 

B 

IN 

000 


100 

B 

IN 

00 1 

10 

110 
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For shortness, these numbers can be converted to decimals - 
it is not clear in the manual that this can be done. The code for 
the graphic may be entered as a list of POKEs, like this: 


1 REM us £ r defined nan 
10 POKE U5R . 

20 POKE U5R "ft”+1,2© 

•-ara DfiK c I 1<=.D ■■o-’j.o 1 'ap. 

!! poke usr -n-+5;iae 

50 POKE USR “Pi“ +4- ,29 
50 POKE 1 'SR " F)" +5,oq 
70 POKE USR "«••+©'20 
30 POKE USR “Pi" +7, 54- 

A simpler way is to use a FOR-NEXT loop, which READs the 
numbers from a DATA statement elsewhere: 


1 REM user defined Men 

10 FOR f=0 TO 7: READ a. POKE 
USR "R"+-f,a. NEXT f 

20 DRTfi 26,26,136,126,29.29,2® 
, 5* 


For a number of different characters to be defined, an extra 
loop can be added. 

Here the ‘A’ is replaced by CHR$(144+f), which 
incidentally avoids confusion between the capital A and graphic 
A, which are indistinguishable on screen and in listings and 
easy to forget. So for (e.g.) five user-defined graphics: 

I REM User defined Men,woman 
..Child, Cat and Dog 

10 FOR f -0 TO 4. FOR 3 -O TO 7 ; 

RERD a: POKE USR CHR$ (14-4-+ f > +g 
. a : NEXT 9 : NEXT f 

20 DflTP) 28,23,136,126,29,29,20 
, 54- 

30 DRTR 3,29,137,126.23,62,20, 

54- 

4-3 DATA 0.0,16,34- . 55,16,4-0, 40 
50 DRTR 0,0,4-, 2,34-.23,20,20 
60 DATA 0, 0 .0,64-, 252,56,4-0,72 


You can design your characters on squared paper, ruled into 
8x8 square sections, but it is convenient to design the 



36 


USER-DEFINED CHARACTERS 


character(s) on screen so that it is possible straight away to see 
what it looks like as a character in the actual size of the finished 
product, and be able to alter it until perfect. 


=>-ry ; yry : >-=yr>-zy^-i>- x> 

^-iy^y^Vxy^y^yayay 

jy^y^yiyaydy^-ry^-iy 


Press Ke m s 5,6,7.3 to wove , key 
0 for black square, 9 to erase 
square, and 1 when finished. 

DflTfi 16,3,108,31,103,8,16,0 


Corrections? (y/n) 



User-defined Graphic Designer 

To use 

When you RUN this program, an 8x8 grid of squares appears 
at the top of the screen, with a marker in one corner. 

To design a graphic, the marker is moved around the grid 
using keys 5, 6, 7 and 8. To fill in a square with black, press 
key 0. To wipe out a square which is filled in, press key 9. 

When you have finished your graphic, press key 1. The 
DATA for the graphic will appear, together with a single 
actual-size version of your graphic and a block of them so that 
you can see what they look like in a group. You are then asked 
whether you wish to make any corrections, after seeing how 
your graphic really looks. Press key Y to put yourself back in 
command of the marker. If you wish to scrap the whole 
graphic, you will need to re-RUN the program. 
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A A. .E. A A > x> iQ \T~i *vv 
v?w vTVV VVvV V7Cvl V V7 

A A. A A jSh i±i iij A A w A 

v?V^v?v\ l vvVvv7vvvv‘vV vv 

A A A A A »Ti A »tv A >A 

ooovvnrJvWv^vv 

AAAMbAMA 

AAA A A 
&A .*. ,*. At, .*. A A A 

aaaaaaaaaa 


Press Keys to move. Key 

© for btacK square, 9 to erase 
square, and 1 when finished. 

DATA 0,16,56,34., 124-, 170,130,68 


Corrections? (y/n) 



Notes on listing 

50 A$ will hold the binary for the graphic - initially all zeros. 

60 Co-ords of marker on grid. 

70 DRAW grid. 

80 Print instructions. 

100 DRAW marker on grid. 

110 Wait for number key to be pressed. 

130 Wipe out marker. 

140 Move marker according to IN KEY $. 

150 If 0 pressed, goto ‘ink in square’ routine. 

160 If 9 pressed, goto ‘wipe square clean’ routine. 

170 Check for finished graphic. 

190 Repeat loop. 

200-280 Finished graphic. The DIMensioned array A holds 
the data, found by adding ‘DIM’ to A$ and finding its 
VALue. 

Note that DIM is a keyword, and must be entered as such, 
i.e., press CAPS SHIFT, then SYMBOL SHIFT, then let 
go and press the J key. 

Note use of CHR$ 8 in line 210 to backspace and remove the 
last comma in the DATA statement. 

If corrections, goto 300, otherwise STOP. 
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300 Clear bottom part of screen and go to main loop. 
500-510 Black in square, and put a 1 in A$. Goto main loop. 
600-610 Whiten square and put a 0 in A$. Goto main loop. 


Listing 


1 REM U.D.G. Designer 

2 REM © 5.Robert Speel 1982 

50 DIM a*(S,8): FOR f =1 TO 8: 
LET a $( f ) =" 00000800 ": NEXT f 
60 LET x =1: LET y=l 
70 FOR f=0 TO 8: PLOT 0,80+f*l 
0. DRflU 80,0. PLOT f*10,80. DRAW 
0,80. NE:>(T f 

S0 PRINT RT 13,0;"Press Keys 5 
.6,7,8 to move. Key 0 for black 
square, 9 to erase square, and 
1 when finished." 

100 OUER 1; PLOT (X - . 6) *10.164-- 
y*10: DRflU 1,0; DRfllJ 0,2: DRflU - 
2,0: DRRU 0,-2 

110 IF INKEY*<"0" THEN GO TO 11 

0 

120 PLOT (X - . 6) *10,164--y *10 : DR 
flU 1,0: DRflU 0,2: DRflU -2,0; DRfl 
U 0.-2: OUER 0 

130 LET X=X+ (INKEY*="3“)-(INKEY 


* = "5 

" ) : 

LET y =y + (INKEY $ = 

"6 

"J - 

(IN 

KEY* 

= 

) 





140 

LET 

X =X + i x < 1) 

- (x > 8 ) 

: LET 

y = 

y + {y 

< 1) - 

{y > S ) 





150 

IF 

INKEY$="0" 

THEN 

GO 

TO 

50 

0 







160 

IF 

INKEY*="9" 

THEN 

GO 

TO 

60 

0 






170 

IF 

INKEY*="1" 

THEN 

GO 

TO 

20 

0 






180 

IF 

INKEY* >" ** 

THEN 

BEEP 

-5, 

-50 






190 

GO 

TO 100 





200 

DIM 

a(8): PRINT RT 

17 

, 0; 

“ D 

RT R 

* 






210 

FOR 

f=l TO 8: 

LET a 

{ f 

=URL 


{"BIN "+a$ff)i: PRINT a(fi 
NEXT f: PRINT CHR$ 8;" " 

220 FOR f =0 TO 7: POKE USR CHR$ 
14-4 + f , a { f +1) . NEXT f 
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S3® PRINT RT 2, 30; CHR$ 14-4-: PR I 
NT RT 1,15; 

34.® FOR f=l TO 10: FOR g =1 TO 1 
0: PRINT CHR$ 144-;: NEXT g: PRIM 
T RT f , 15; : NEXT f 
S50 PRjlNT RT £0,0; "Corrections? 
(m/ n) “ 

260 LET b $ =INKEY $: IF b$="y“ TH 
EN GO TO 300 
270 IF b$ = ’*n" THEN STOP 
2S0 GO TO 260 

300 FOR f =17 TO 20. PRINT RT f, 

©; " 

”: NEXT f: GO TO 100 

500 FOR f=l TO 9: PLOT (X-1**10 
+1,170-y*10-f: DRRW 3.0: NEXT f 
510 LET a$(y,x!= " 1“ : BEEP .5,-2 
0: GO TO 100 

600 INUERSE 1; FOR f=l TO 9: PL 
OT (X-1J*10+1,170-y*10- f: DRRU S 
,0; NEXT f : INUERSE 3 
610 LET a $ ty , X ) =”0": BEEP .5,-2 
0: GO TO 100 


Graphic Lists 


Naturally, you will want to make your own characters or 
graphics, but here are some useful ones to start you off. The 
eight numbers for each graphic are given as a DATA list. 


'■$ ‘«i ’-4 *4 

DfliH e>4- , t>4- , 68,72,22,34- , 4-, 6 


** % 


DRTR 

K K K 

DRTR 


H* ^ H 

64-, 6S , 72,36 , 33,73,1,6 

K K K 

04- , 63,72,33,43,74,15,2 


^ H H H H H 

DRTR 192,63,136,214,33,70,1,6 
?V H H H H H 

DRTR 192,32,196,43,212,37,71,1 
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t ■+ t 

t t f _ 

DOTO 

0 / it? / 5t? /1?4* / It? / it? / ■ 

1 i 1 

^ 1 ^ 

DhT ft 

4-2 , 20,8,0 

-* -» -4 

-4 -4 

DOTO 

0 , S , S , 4- , 156,4- , 8 , 0 


t- 4- t- 

DOTO 

0 ,- 16,32,126 32 , 16 


3 3 3 

DOTO 

3 3 3 

0^8,6,18,18,32,8,6 


i i i 
DOTO 

0,6,32,IS,10,6,30.0 


tr *r *r 
DOTO 

0 , 0 , 1 , 72 , 80 , 96 , 120 , 0 


err 

DOTO 

f. F. K. 

0 , 120 , 06,80 , 72 , 4- , 0,0 


it Ct C£ 

DOTO 

0 , 0 , T , 52,72,72,54- , 0 


P P P 

DOTO 

P P P 

24- , 3b , 56,36 , 3b , 56,35 

/ 32 

y y y 

DOT ft 

v y y 

2,34- , IS , 20 , S , 50 , 24- 0 


5 5 5 
DOTO 

5 5 5 

3,20, iS,3,24-,3S,24-,0 


& » & 
DOTO 

24-, 36 , SS , 102,92,63,53,0 

,«>' 0 0 
DOTO 

0 0 0 

1 , 26 , 36 , 74- , 32 , 3b , 63 , 

123 

.« h n 
DOTH 

u $1 H 

0 , ‘0 , 0 , 4-0 , 4-0 , S3 , 35 , 64- 


-IT -if if 

DOTO 

0,0,2,124- , 133 , 4-0 , 4-0 , 

0 

Cf T J 
DOTO 

T T 7 

12 , 10 , 88 , 53 , 20 , 13 , 14- 

4 , 93 

=? ^ 
DOTO 

^ ? t* 

, t? , 4- i i5t«1, i2t> 4- S 
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DfiTfi 

0 x 5? jr fe? , i-*4- / 10H f 0 2c& x 0 


3 v' -/ 
DATS 

V* 

36 x 


S £ X 

DRTfi 

sss 

0 .* t>i~ x ^2 j ,• ,• ci? / x 


* ♦ ^ 

DfiTfi 

-fr ^ 

0 x 24- x 2.26 x 2S6 54- # * 36 ,-0*0 


* 4 4 
DHT hi 

4* A. A 

24 ?60,90,126 , 24-, 3& ,66,0 


M M M 
DfiTfi 

M M M, 

0,56,34,56. 124,170,173 , 

170 

jRj 1*1 
DfiTfi 

A A 

24,36,24,90,159,153,265 

, 12 


9 


Customized Graphic Sets 

Some types of graphics tend to be used together; for example, 
a spaceship graphic is likely to be accompanied by several other 
spacecraft graphics, missiles and ‘explosion’ graphics. 

A couple of sets are given here. It may be more convenient 
to store these sets on a separate cassette of their own, so that 
they can be easily located and MERGEd with other programs. 
For this reason, the line numbers start at 9300, since it is 
unlikely that your main program will have the line numbers 
9300 onwards already in use. 


930© REM Tank UDGS by S.R.S. 

93IS? RESTORE 9320; FOR f 0 TO 15 
: FOR g ^-0 TO 7. READ 3. POKE USR 
fCHR$ NEXT 9 . NEXT 

9320 DRTfi 0,0,0,30,56,126,255,10 
2.0.0.0,120,28,126,255,102 
9330 DRTR 0,0,0,0,120,70.127,107 
,0,0,0,0,30,96,254- . 102 
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334.0 DfiTfi 0^0,63,ljl5,i27j4.2,31, 
0 .. 128,192 , 24-© , 24-8,255,170 - 252 
3350 DfiTfl 0, 2,3, 15,31,255 ^ 85,63 , 
0 .. 0.. 252 128,24.0, 254- , 84-, 24-8 
9360 DflTfi 0,0,14,18,63,63,21.8,0 
,0,0,2,252,252,84,246 
937© DfiTR 0,0,0,64,63,63,42,31,0 
,0,112,72,252,252,168,16 
9380 DRTfl 0,31,2,7,15,127,4-2,31, 
128,0 -128,224,240,252.168,240 
9330 DRTfi 1.0.1.3.15.63.21.15.0, 
24-8,84. , 224,24-0,254. , 84- , 24-8 

9400 PRINT -Tank UDG Set - *'' 

94-10 FOR f =144 TO 159: PRINT CHR 
$ f, " " AND f/2 OINT (r/2);" " B 

ND F<14-8;: NEXT f: PRINT '' 

94-20 FOR / =65 TO 80: PRINT CHR$ 
f ;" " AND f/2=INT (fS23j“ " AND 

f <69, : NEXT f 


Tank 

4fc * 

UDG Set 

B. «3 r&r 


<a» 

Jk, 


fi B 

C D EF GH 

12 

KL 

MN 

OP 


93©0 REM Castle UD5S by 5R5 
9310 FOR f =0 TO 14-: FOR'3=0 TO 7 
: READ a: POKE USR CHRJ (14-4-4-0 + 
3 . a : NEXT <1 : NEXT f 


932© DfiTR 204,204,255,85,255,255 
.255,255,126.102,255.65.255,235, 

255.255 

9330 DfiTR 108,124-. 137,255,187.25 

5.187.255 

334-0 DfiTR ©.51,51,63,22,22,30,31 
. 0,0.0.0,0 .102 , 102.255 , © , 204- , 204- 
, 252,104- , 104- , 120,24-8 


9350 DRTR 219,213,255,223,255,22 
3,255,223,153,255,255,231,195,19 
S , 195,125,216,216 , =5o , 25 j. , ^55 , i=5 
1 .255 251 

3363"DRTR 0,213,219,255,231, 126 , 
102,126,16.16.56.56.1G8,106,254- , 
84- 
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3370- DHTfi 135 , £13,255 - IS2,126, 12 
6 .. 36 , 107 , 135.213.255 . ±02, 126.126 
,105,2H 

9330 DfiTfi 127 ,133.255,35,255,255 
,255,255,254,233,255,65,255,255, 
255,255 

94-0© PRINT "Castle UDG5 " ‘ : FOR 

f =14-4- TO 153. PRINT CHR$ f ; " " ; ; 

NEXT f : PR INT 

34-1© FOR f —14-4- TO 158: PRINT CHR 
S • f —79) ; " . NEXT / 


Cas tie UDGs 


ill If M if 
R B C D E F 


WtlilKAMISg 

GH I <J K L_ M N O 


10 ren castle picture by SRS 


20 PRINT TRB 14-,"K'' ; TRB 13; "HH 
H'NTflB 11; "HHHHHHH" 

30 PRINT TRB 8; "K J K <J K U K" 
4-0 PRINT TRB 3; "GGGGGSGGGGGGG" 
50 PRINT TRB 5;"DEFDEFDEF DEED 


EFOEF" 

60 PRINT TRB 5;"NONONONONNONON 
ONOND" 


70 RRXHT TRB 3; "L_ 3 K C>EF 

K. 8 M * * 

80 PRINT TRB 3; ""ORRRBRRCRRGHIR 
RCRRBRRRN *’ 
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Graphics Rotation and Reflection 

This is a very useful program when you have designed some 
user-defined graphics and now want them facing in different 
directions. A spaceship may be needed pointing into all four 
points of the compass; a man may have to fall off a cliff 
horizontally or in an upside-down position; and a dinosaur 
facing right has to have an opponent facing left. This program 
gives you graphic rotation in all four directions and also 
reflected in all four directions - eight poses in all. 

To use 

RUN and input the data for your graphic one by one, with 
ENTER after each. You can input it as normal numbers (base 
10), e.g., 40, or as a binary number, e.g., BIN 101000. When 
you have finished, the screen clears, and after a short pause a 
large version of your graphic appears, along with an actual-size 
character showing your graphic singularly and in a block of 
nine copies of it. The data is also given. 

Press ENTER and the reflected upside-down version of your 
graphic appears, with data, etc. When you are ready, press 
ENTER, and repeat for all the other reflections and rotations. 


Typical use of program 

Due to symmetry of this graphic, there are only four ways of 
pointing it. 



; ; 6S / (3 


Da t a 
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Data o, svz>, ©4., a *-©, 24 a . 34 , sa, © 
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Notes on listing 

50 A$ holds the picture of the graphic. 

60 CHR$ 144 is the ‘chessboard’ pattern which appears grey 
on the picture. 

70 B$ holds the binary numbers which represent the graphic. 

100-160 INPUT data for your graphic. Set A$ to picture of 
graphic. 

200-260 Draw picture of graphics and actual graphic 
characters. 

210 READ columns and rows of A$ to be printed. This 
READing of variables, rather than numbers or strings, can 
be very useful. However, as each pair has to be read several 
times, RESTORE is used and hence each pair must have its 
own line number. 

220 Set B$ to binary number representation of A$. 

240 The BIN is the keyword BIN, not 3 separate letters. 

250 PRINT block of characters and single character. 

260 Repeat for next rotation/reflection when key pressed. 

8000-8070 DATA for column and row of A$ to print. 

Note Do not put all the DATA into one program line. 

Listing 

1 REM Graphics Rotation and 

Re flection 

2 REM © S.Robert Speet 1382 
1© INK 1: PAPER 6: BORDER 4-: C 

L.S 

50 DIM 3$(6,6): FOR F=1 TO 8: 

FOR g=l TO S: LET a$(f,q)=CHR$ 1 
4-4-: NEXT q : NEXT f 

60 FOR ?=0 TO 7 STEP 2: POKE U 
SR CHR$ 14-4- + f .85: POKE U5R CHR$ 
14-4- + f +1,170 : NEXT f 
70 DIM h$(8,S) 

ISO print " Input the data for 
qour"'"qraphic, followinq each n 

uisber. with ENTER." 

110 FOR f=l TO 8: INPUT "Number 
" ; tf) ; " " ;n u. BEEP .3,1© 
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120 FOR y=0 TO 7: IF nu>=2t C7-g 
) THEN GO TO 14-0 
13G GO TO 150 

14-0 LET a$ C f ,3+1) = " LET nu=n 

u -2+ (7 -g) 

150 NEXT g: NEXT f 
160 CLS 

200 FOR f =0 TO 7: PRINT "■■■ 

210 FOR g =1 TO 8: PRINT "■*’ ; : v F 
OR h =1 TO 8: RESTORE S000 + fii0: 
RERD a.b: PRINT a$(a,b); 

220 LET b$(g,h). = "0”: IF a$ta,b) 
„ THEN LET - b$(g,h! = " 1" 

230 NE XT h: PRINT "B" : NEXT g: 
print 

24-© PRINT RT 12.0; “Data ", ; FOR 
i=1 TO 8: PRINT URL ("BIN "+b*( 
i) POKE USR CHR$ 14-5-f-i , UR 

L ("BIN "+b$(i>): NEXT i: PRINT 
CHR$ 8;" " 

250 PRINT RT 5,1S;CHR$ 14-5: FOR 
i=7 TO 9. PRINT RT i,20;CHR$ 14 
5;CHR $ 145;CHR$ 145: NEXT i 
260 PAUSE 0: CLS : NEXT f 

8000 DfiTR <4 , h 
8010 DRTR 9-g,h 
802© DRTR g,9-h 
8030 DRTR 9—g,9—h 
8040 DRTR h,g 
8050 DRTR 9-h,g 
8060 DRTR h,9-g 
8070 DRTR 9-h,9-g 



Extending User-defined 
Graphics 


There is a limit to the number of user-defined graphics which 
can be used at one time - 21. You may think it unlikely that 
you will want more than this number in one program, but there 
are many situations where you will find you will need a few 
extra graphics. For instance, say in a ‘space’ game, your ship 
consists of two graphics: if you wish to rotate it in all four points 
of the compass, you will need a total of eight user-defined 
graphics. Add a couple of enemy spacecraft and you may not 
have any space left for user-defined missiles.... 

Another case is when you want a complete user-defined 
alphabet, for example Greek. One way of coping, if all the 
graphics are not to be used at once, is to use a ‘Data switch’. 

Data switch means that where there is an alternative between 
several different graphics, according to the situation, the 
program RESTORES to the line number of the graphic(s) 
desired. So the same user-defined character space, e.g., CHR$ 
144, can be used for several different graphics. This is a useful 
technique to cut down on sub-routines even if you do not intend 
to use many user-defined graphics. A good example of this 
method is found in Space Raider. 

Another problem with user-defined graphics is recognizing 
them. SCREENS will not work, but just return the empty 
string. The normal way to get around this is to use ATTR, and 
have each of the various user-defined graphics characters a 
different colour or brightness to distinguish them. However, 
this will not cover all eventualities. Consider the common 
problem of background. A user-defined tank is travelling 
across a terrain of full stops and plus signs. To stop the tank 
leaving an empty stripe behind it as it moves, the square in front 
of it is deleted each go and copied into A$, so that, for example. 
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a tank going across the screen to the right, PRINTed at Y,X, 
a suitable command would be: 

LET A$ - SCREEN$(Y,X+1) 

Then, when the tank moves on, A$ is PRINTed in its place, 
so the tank moves ‘over’ the terrain. But when the full stops and 
plus signs are replaced by user-defined grass and bushes, the 
above technique will not work as SCREEN$ cannot detect the 
user-defined graphic. Again, we can use ATTR: if the 
ATTRibutes of the square add up to 116 (bright green on yel¬ 
low) PRINT a bush, if 52 (dull green on yellow) PRINT grass. 
This becomes impracticable when there are several different 
types of foliage or other graphics to be recognized. 

What we need is a way to identify such UDGs using 
SCREEN$. There is a system variable called CHARS which 
stores the location of the beginning of the character set in ROM 
-256. If CHARS is POKEd to a new value, in RAM, we can 
make our own character set. Usually, we will want to keep the 
normal character set, but change a few of the less-often used 
characters, such as the ampersand (&), the exclamation mark 
(!) and the £ sign. These new graphics will be recognized by 
SCREEN$ and thus be more useful than normal user-defined 
graphics. In fact, if you want to keep your £ sign, exclamation 
mark and so on, you can set up some normal user-defined 
graphics to hold these. 

The idea of using an alternate character set in RAM is also 
a solution to the problem of not having enough user-defined 
graphics. You can replace not only the little used characters, 
but also, for instance, the lower-case letters. You can have your 
complete upper- and lower-case Greek alphabet and keep all 21 
of your normal user-definable graphics available! 

The only problem is with listings. After having changed your 
complete character set to Greek, all the error messages and 
listings will be in Greek letters. The error messages do not 
really matter, but a listing in Greek (or in block graphics, etc.) 
can be difficult to follow and correct. There is a cure. 

At the end of the program, have a line POKEing CHARS 
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back to its normal position in ROM. 

The following program, Letterwriter, shows how you can 
change your character set to ‘handwritten’ text. 


Letterwriter 

To use 

Letterwriter is a program which lets you write short letters 
using simulated handwriting. All the normal letter characters, 
both capital and lower case, are replaced by letters designed to 
join up to each other. 

When you RUN this program the first time after typing it in 
or LOADing it, the name ‘Letterwriter’ will appear on screen, 
and under it a constantly increasing number. This number will 
rapidly increase to 760, and it is there so that you can tell that 
the program is running. Then, after a short pause, you will be 
asked how you sign yourself, who the letter is to be addressed 
to, and the date (if no date is required just press ENTER). 

Next you are asked for the text of the letter. Type it in 
without worrying about overlapping from one line to the next 
in mid-word - the computer will take care of that. When you 
have finished, press ENTER and, after a few seconds, the 
whole letter will appear, in ‘handwriting’, including a flourish 
on your signature. 


Sea*'' , 

$yj- * km i. ZX 

iv-r-e- £.-*■**&*• 03S- .t'&cc-L- i-c 

-Uvtvft^twft-avn- for vf-o-tf.? .£<£ 
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L-£-TT£4l LMtXTS-ft -to ^<rm 

-S. -R-oty€>r'-t-. S.p-Gr&.^ 

<£r' 

1 .ft-p-t-V -1 1396 

■Se *-r- S-i -r- , 

U><b +'e~5-t^evt- -to -v-n-^orsiv y-ou- 
-t-A-a-U tou-r- -v-s- tMv«- 

more- J= Fe-t-a-'y-e-d , <K(,e- -to -wv 

•B'-Q'O'-n. . K-OMV^-’yv^^y- ■ 


J" -Sfit-v-UA- 

(4VjMAS-u-m.-e-t' p 

C» 


Notes on listing 

The main part of this program is the data in lines 9400-9630. 
These contain the data for the alternate letters, and may be used 
in other programs. The rest of the program consists of routines 
to POKE the data into RAM, the part where you enter your 
letter and what is really a very simple ‘word processor’ to set 
out the letter neatly, without words overlapping lines. 

20 This line means that after the first RUN, you will not have 
to wait while the character set is POKEd into RAM. 

110-150 Input name, who the letter is to, date and text of 
letter. 
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Note that the text, contained in d$, has some dummy spaces 
put on to the end of it, as d$ tends to grow in length as it is 
processed. 

160 POKE CHARS to the new character set in RAM. 

Note that CHARS can be POKEd from character set to 
character set without delay at any time. 

200-320 Check end of each line of d$ (text of letter) and if a 
word is split there, add spaces until the word is all on the next 
line. 

Note that this results in d$ increasing in length. Finally, the 
excess spaces at the end are removed. 

400-420 PRINT text of letter, together with date, signature, 
etc. 

Note that the signature is complete with a curly flourish at 
the end! 

As listed, the letter will leave a blank line between each line of 
text, but for longer letters, you can make the computer print 
on every line by erasing the two apostrophes before the ‘NEXT 
F’in line 410. 

430 POKE CHARS back to Sinclair’s character set. 

440-490 COPY routine - delete if you have no printer. 
9300-9320 POKE complete character set into RAM starting at 
address 31000. Print out every tenth byte to let you know 
how it is getting on. 

9330 POKE your lower-case letters into RAM, and the three- 
character flourish for signature. 

9340 POKE your capital letters into RAM. RESTORE not 
necessary but useful as a safeguard if more DATA added to 
program later. 

9350 Go back to main program. 

9360 DATA for flourish. 

9400-9520 DAT A for lower-case letters. 

9550-9630 DAT A for capital letters. 
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Listing 


1 REM Letter Writer 

2 REM © s.Robert speel 1982 

10 PRINT "Letter Writer" 

20 IF PEEK 315©©=0 THEN GO SUB 
9300 

100 cls : print "Letter Writer" 
110 INPUT "How wi t I you sign yo 
urse L f? ", a $ 

120 INPUT -Who is the letter to 
*?" ; b$ 

130 INPUT "Today's date?",c$ 

14-0 INPUT -tope in text of Lett 
er ";d$: LET d$=" "+d$ 

150 FOR f=l TO 5: LET d$=d$+" 

NEXT f 

160 POKE 23606,24-: POKE 23607,1 
20 

200 FOR f=l TO LEN d $-32 STEP 3 

2 

210 IF d$(f+31)=" " THEN GO TO 

310 

220 FOR g = f +31 TO f STEP -1 
230 IF d$(g)=" " THEN GO TO 300 

24.0 NEXT g 
250 GO TO 310 

300 FOR h=g TO f+31: LET d$=d$( 
TO g) +" ”+d$(g+l TO ): NEXT h 

310 NEXT f 

320 LET d $=d $ i TO LEN d$-128) 

4-00 CLS ; PRINT ,C$'TRB 4; "Dear 
b$; " , " 

4-1© PRINT " ' . FOR f =1 TO LEN d® 
-32 STEP 32: PRINT d$(f TO f+31) 

'': NEXT f 

4-20 PRINT ' 'TAB 10; "Yours" ,a 
PRINT TAB 14-+LEN a 
4-30 POKE 23606.0: POKE 23607,60 
44-0 PRINT RT 2i,0j "Copu? (y/n)" 
450 IF INKEV $ = "y" THEN"GO TO 46 

0 

460 IF INKEV$="n" THEN STOP 

470 GO TO 44G 

480 PRINT RT 21,0;" 

490 COPY : STOP 
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9300 FOR f=0 TO 76S: POKE 31000+ 
f , PEEK (15616 + f) 

9310 IF f/20=INT (fsSQ) THEN PRI 
NT AT 1,0; f 
932S NEXT F 

9330 RESTORE 9350: FOR 1=496 TO 
72S; READ a: POKE 31000+f,a: NEX 
T f 

934.© RESTORE 9550: FOR f =264- TO 
4-64-: RERD a. POKE 31000+f ,a: NEX 
T f 

9350 RETURN 

936© DATA 0,0,48,72,136,16.96,12 
8,1,134- , 120,0,0,224- ,16,32,0,7,24 
,32,64 .. 64- , 35,23 

94-0© DRTP. 0,0,56,4,62,197,60,0,1 

6,48,32,124- , 163,34,60,0 

94-10 DATA 0,0,23,32,96,163,26,0, 

4,4,4,62,69,196.60,0 

94-2© DATA 0,0,56,68,24-9,66,60,0, 

12,10.20,112.159,4-8,30.96 

94-30 DATA © , 0.23,36,93.134-, 4,24-, 

0,48,80,95.12©.203,76,0 

944© DRTR 0,16.0,16,49,214,3,0,1 

6,0,16,43,211,60,80,96 

9450 DATR 32,30,116,164,56,37,33 

,0,24.40.40,46,80,145,14,0 

946© DATA 0,0,104,84,212,85,86,0 

,0,0,0,56,100,165,38,0 

9470 DATA 0,0,56,70,197,68,56,0, 

0,0,56,10©,167,60,32,32 

9480 DATA 0,0,56,100,188,5,8,4,0 

,0,36,122,161,32,32,0 

9490 DATA 0,0,48,64,187,4,56,0,3 

2,32,56.32,97.166,24,0 

9500 DATA ©,0,36,100,164,37,26,0 

,0,0,36.38,105,168,16,0 

9510 DATA 0,0,34,106,171,42,20,0 

,0,©,102,152,136,25,102,© 

952© DATA 0,0,36,100,191,20,36,2 
4,0,0.56,72,145,34,116,12 

9550 DATR 24,36,36,60,36,165,102 

^ 0,120 » 3b 3t> * 56 « 37 « loo * 120 > 3 j 24- - 

36 ; 36,32,06 , i67 24-, 0 

9560 DRTR 60,82,81,57,97,209,62, 

0,56,72,64,48,64,199,56,0,31,16, 

48,95,144,16,16,0 

957© DRTR 56.68,68.64,207,68.56, 
©,10©,36,36,60,36,165,102,0,58,8 
4,16,16,16,58,84,0 
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9550 DflTfi 63,22,8,8,72,72,48,0,9 
S , 164-, 4-0,4-8.4-0.165,98.0,96 , 160,9 
6,32.32,33.3.26 , © 

9590 DRTR 34- . 54- , 4-2, 4-2 ,34,163,98 , 
0,10S , 178,162,34- , 34- . 34-, 35 , © , 24-, 3 
6,36,36,101,166,56,0 

960© DRTR 60,34-, 34-, 124-, 160,32,32 
,0,58,68,58,68,212,76,60,2,56,36 
,36.5b,100,16S ,36,© 

9610 DRTR 28,34-, 32,92,130,3,28,0 
.113,14-2 , S . 8,9.14- , 24- , 0,68,68,68 , 
68.68,197.62,0 

9628 DRTR 68,68,70,69,168,4-0,16 , 
0,13© , 130,13© , 14-7,14-6,14-6,108 . © , 
130,68,40,16,16,170.68,0 
9630 DRTR 18,18,50,94,130,15,18, 
12,62,68,8,16,32,77,24-2,0 



High-resolution Graphics 


By high-resolution graphics I mean the Spectrum’s ability to 
draw fine lines, curves and circles, and PLOT on a grid of 
192x256 dot positions, not user-defined graphics, which are 
dealt with on pp. 34-56. 

When you want fast moving graphics, use user-defined 
graphics. In many programs the moving bits will be user- 
defined graphics and the backgrounds may be drawn with high- 
resolution graphics. 

High-resolution is suitable for picture drawing, graph 
plotting, plans of buildings, backgrounds, maps and pie- 
charts. It is also useful for illustrating many maths and scientific 
programs. 

Geometrical shapes and patterns can be most useful in 
‘showing off the Spectrum’s powerful high-res. Here are a few 
short programs which are worth experimenting with. 


Cage 

There is a great sense of depth to this picture on screen. It is 
easy to alter the size and shape by changing a and b. By 
changing the STEP value, line 30, you can achieve a more solid 
shape (STEP 2 is quite effective) or a more ‘wiry’ one (try STEP 
4). 

This is a good program to experiment with, and to see how 
to alter the depth, shape and structure of a picture on screen. 
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Listing 


X REM Cage 


10 BRIGHT 1: PAPER 6: INK 1: 
ORDER 2: CLS 

20 LET X =60: l-ET y =£5 
30 FOR f=l TO 100 STEP 2.5 
4.0 LET a =100- f ; LET b=100-f: 


B 


L 


ET c =(a + bJ sl& 


100 

PLOT 

x , y 




110 

DRAW 

a,0; DRAU 

0 , b: 

DRAW 

-a 

0: i 

DRAU 0 

, -b 




120 

DRAW 

C,c: DRAU 

0 , b : 

DRAU 

-c 

- c : 

DRAU 

0, -b 




200 

PLOT 

x +c ,y +c 




210 

DRAU 

a,0: DRAW 

0, b: 

DRAU 

-a 

O: 

DRAU O 

, -b 




300 

PLOT 

x +a , y 




310 

DRAU 

C,C: DRAW 

0 , b: 

DRAU 

-c 


, - c ; D.R.AJ.l 0 ,• -Jb 

320 NEXT f 
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Sphere 
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This program shows use of high-res DRAWing. 

The picture on paper does not, unfortunately, compare with 
the screen picture, which looks very solid and almost three- 
dimensional. 



Notes on listing 

Lines 120 and 170 show DRAW forming curves. If these are 
changed to DRAW 100,0,f and DRAW 0,-100,f, and the 
second PLOT (line 160) changed, a smaller sphere can be 
drawn. Try altering the STEP values, in lines 100 and 150, to 
make the sphere ‘darker’ and more solid, or ‘lighter’ and more 
segmented. 

Listing 

X REM sphere 

1® INK 3: PAPER 0; BORDER 5: C 

LS 

100 FOR f=-PJ TO PI STEP ,2 
I10 PLOT 50,SB 
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120 DRAW 150,0,f 
130 NEXT f 

150 FOR f =-PI TO PI STEP .3 
160 PLOT 130,160 
170 DRAW 0 ,-150, f 
160 NEXT f 


Revolving Surface 

With small shapes, DRAWing is fast enough to give a fairly 
continuous moving picture. 

Here a small flat surface appears to rotate ‘into’ the screen. 
Notes on listing 

Line 20 a controls the width difference of the rotating surface 
in comparison to its height, b gives the speed and continuity 
of the rotation, and c is the size of the shape. 

Lines 100-130 contain a loop which DRAWs OVER 1 twice, 
thus first drawing the surface, then erasing it. This gives a slight 
flicker to the picture. 

If c is increased, the ‘surface’ gets larger, and the flicker more 
pronounced, if smaller, there is less flicker. 

Listing 


1 REM Rev o tving 5u rface 

1© PAPER 6: BORDER 4- : INK 0 : C 
LS : GOER 1 

20 LET a=0: LET b=10: LET C=20 

100 FOR f=l TO £ 

110 PLOT 12i3+.5ra .30 
120 DRAW c-a,©: DRAW 0.t: DRAW 
a -C ,O: DRflU 0 , -C 
130 NEXT f 

200 LET a =a +b 

210 IF a =c OR a <0 THEN LET b=-b 
220 GO TO 10© 
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Block Complex 



This program is based on a cube-drawing routine - by adding 
random length, breadth and position, the program draws a 
wide range of different blocks on the screen. Although 100 
blocks can be drawn, the picture often looks at its best after 
about 20 or 30 blocks. 

Notes on listing 

20 Number of blocks, change as desired, or use BREAK. 

30 x and y are the position of the bottom front left-hand corner 
of the block. 

40 a is the length, b the breadth and c the depth of the block. 
Try making c independent of a and b (e.g., LET C = RND 
*15). 

100-130 Draw block. Try making the ink colour random, or 
the paper colour, and see what happens as the screen fills up. 

Listing 


1 REM Block. Complex 

n D £2= B 2 2:GHT 1; pflp ER 6. INK 1: B 
URDER S 

20 FOR f=l TO 100 
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30 LET X=RND*150: LET y =RNO-*O0 
4-0 LET a=RNDf?0: LET b=RNDi50-. 
LET C = (a + b) /10 

100 PLOT X.y: DRRU 3,0: DRRU 0, 
b: DRflU -3,0: DRRU 0 .-b 
110 DRRU C,C-. DRRU 0.b: DRRU -C 
.. - C : DRRU 0,-b 

130 PLOT X+C.y+C-. DP.RW a-0’. DRR 
U 0 , b: DRRU -a,0: DRRU 0,-b 
130 PLOT x+a.y: DRRU C , CDRflU 
0.b: DRRU -C,-C: DRRU 0,-fc 
14.Q NEXT f 





Modules: Movement of a 
Small Object 


In most moving graphics games the player is in control of some 
small object - representing a spacecraft, a car, a bat, etc., which 
can move at least in one dimension and often in two. By a small 
object I mean something up to about three graphics characters 
in size. For the following routines, an asterisk (*) denotes the 
object. 


Movement in one dimension 

This involves moving left and right, or up and down, not both. 

Before actually writing a routine, we must consider what 
happens when the object moves. Assuming that we don’t want 
to leave a trail of asterisks behind whenever the object moves, 
we have to erase the ‘old’ asterisk when moving to a different 
co-ordinate. Using CLS is a poor answer, since usually there 
are other things on the screen and to rePRINT or rePLOT 
these each go is unacceptable in terms of time taken. For left 
and right movement, if instead of just PRINTing *, we put a 
space before and after the asterisk, then when moving, the old 
asterisks are erased by the spaces. This is very suitable for 
games using ‘paddles’ or bats in breakout-type games, tennis 
games and so on, and also in games involving laser guns which 
move from side to side. 


(A) LEFT/RIGHT MOVEMENT AT ONE SPEED MODULE 

Note that the asterisk cannot go offscreen because of the (X<2) 
and (X>29). If instead of an asterisk you have, say, a paddle 
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MRINLOOP 


300 LET X--X+ (INKEY$ = "Q" ) - (INKEY 
S = " 5 ”) + (X <2) -(X >29) 

310 PRINT RT Y , X; " * ** 

* 

■ 

GOTO *MfiINLOOP 

made of three inverse spaces, then line 510 would read PRINT 
AT Y,X;‘ ■■■ ’ and the limits for X would be changed to 
(X<3) and (X >28). 

(B) UP/DOWN MOVEMENT AT ONE SPEED MODULE 

MRINLOOP 


500 LET Y=Y+l INKEY$ = ”6") -(INKEY 
S = ,, '7" ) + (Y<2) - (Y>19) 

510 PRINT RT Y-l, X; " **; RT Y,X;" 

i"jflT Y+l , X; " 


goto’mrinloop 

Remember that the Y co-ordinate cannot be more than 21. To 
PRINT a vertical line of, for instance, three asterisks, line 510 
would become: 

510 PRINT AT Y-2,X;“ ”;AT Y-1,X;“*”;AT Y,X;“* 
”;ATY+1,X;“*”;ATY+2,X;“ ” 

and the limits in line 500 changed to (Y<3) and (Y> 18). 

Another common situation ofccurs when the object is moving 
at a definite speed in one dimension and is controllable in 
another dimension. For example, an aeroplane might go at a 
constant speed across the screen, but its height is controlled by 
the player. 
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(C) MOVEMENT IN TWO DIMENSIONS WITH CONTROL IN 
ONE DIMENSION 

MflINLOOP 


500 LET Y=Y + (INKEY$ = ••6") - (INKEV 
51© LET X=X + 1 

S£0 PRINT RT Y -1 . X; '* " ; RT Y,X; 

** ftT y + 1 X* ** •* 

530 ' IF Y<3'0R Y >IS THEN GOTO CR 
R5HROUTINE 

S4-0 IF X>28 THEN PRINT RT Y,X;' r 
550 IF X>28 THEN LET X=*0 


GOTO * MRINLOOP 


(D) TWO-DIMENSIONAL MOVEMENT AT ONE SPEED 

MflINLOOP 


500 LET X=X+ (TNKEY* = •'©’*> - (INKEY 
$ = ”5"} + {X < 2) — CX >29) 

510 LET Y =Y 4- l INKEY $ = 6 “ ) - ( INKEY 
*»"7 M )+ (Y<2) -(Y>19) 

520 PRINT RT Y-1,X;** "i RT Y.. X 

” * "jflT Y + 1,X; " 


goto’mrinloop 


Here the 5, 6, 7 and 8 keys are all used to control the object. 
The idea of erasing old copies of the object by PRINTing spaces 
is more complex, since we need to print spaces all around the 
object. 
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(E) MOVEMENT AT ONE SPEED WITH MOMENTUM 

MRINLOOP 


500 LET X1 =S6N (Xlt (INKEY$= ,, S , 'J 

- (INKEY $ = "5”) +(X<2) -(X>29) ) 

S10 LET Y1=SGN (Y1 + (INKEY$ = '*&•' ) 

- (INKEY$ = "7”) +(Y<2) -CY>IS) ) 

520 LET XsX+Xi 

530 LET YsY+Yl 

540 PRINT RT Y-1,X;" “;RT Y,X 

* **; RT Y + l / X;“ 


GOTO‘MRINLOOP 

When a spaceship moves in a particular direction, it will 
continue to move in this direction until stopped. This is the 
basis for momentum movement. If you make your object move 
left by pressing key 5 it will carry on going in that direction until 
you press 8 to stop it. If you press 5 then 7, the ship will go left 
and up, diagonally. 

Here we have to introduce two new variables: the velocity in 
X, XI and the velocity in Y, Y1. Thus, each go, the object will 
move from (Y,X) to (Y+Yl, X+Xl). Set XI and Y1 to 0 
initially. 

(F) MOVEMENT WITH MOMENTUM AT MORE THAN ONE 
SPEED 

MRINLOOP 


500 LET X1=X1+ (XI<-2) -(XI>2) + (I 
NKEY$ = "8") - (INKEY $ = "5") + (X<2) -(X 

>£©) 

510 LET Y1=YI+ (Y1 < -2) - <Y 1 >2) + ( X 
NKEY* = ”6") -IINKEYt = ,, 7“) +(Y<2) - CY 
> 29 ) 

52© LET XaX+Xl 
331?) 8 FT V s;Y i 

54© IF X<0 OR X>31 OR Y<0 OR Y> 
21 THEN GOTO CRRSHRGUTINE 
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550 PRINT RT V-YI,X-XI;" “j RT Y 
. X; *'*" 


GOTO’MOINLOOP 

This means that if you hold down the 5 button the object will 
not only move, but accelerate. 

The maximum speed allowed is 3 in any direction, but this 
can be changed to any desired value. 

As for limits, if the object attempts to go offscreen at speed 
1, it will merely bounce back, but if it goes offscreen at speed 
2 or 3, it will crash - in a prepared CRASHROUTINE. 

Notice here that, instead of PRINTing spaces round the 
object - there are now too many to do - a space is PRINTed 
on top of the object, erasing it, and then the object is PRINTed 
at its new position. 

Of course, the boundaries of the screen in which the object is 
allowed to move in and the results of trying to move offscreen 
will be varied from game to game. 

The above modules can be combined with other factors, such 
as SCROLL. The best way to do this is to put the routine in 
unaltered and see if something odd happens - typically a trail 
of ‘bits of object’ appearing - and this will tell you where to put 
more spaces in. 



Avoiding Problems with 
Programs 


As soon as you start altering programs or writing your own, you 
will find that your programs need debugging. In a 2K program 
there might be a dozen errors and, as you correct each one, the 
program will crash at a new point. This can be very dis¬ 
heartening, but there is a solution: do not write in a program 
more than ten lines long! (This applies only to your new 
programs or modification - existing written programs of any 
length Can be copied.) Although this may sound odd, it is very 
useful. Instead of converting your 8K Monopoly-type game 
into a 16K version in one go, do it a little at a time. You might 
start by adding ‘Community Chest’ cards - there were only 
‘Chance’ cards before - by delegating squares 6, 14 and 35 as 
‘Community Chest’ squares. Each time a piece moves, if it 
lands on a ‘COM CHEST’ then a sub-routine at 8400 is con¬ 
sulted. For example: 

4370 IF A(N) = (6 OR 14 OR 35) THEN GOSUB 8400 
8400 PRINT “YOU LAND ON COMMUNITY CHEST” 
8407 STOP 
8500 RETURN 

(A(N) is the position of the piece just moved.) 

Now RUN the program with this addition to check that it 
works. Since there is little chance of landing on a ‘Community 
Chest’ each go, STOP the program, type LET A(N) = 6, 
NEWLINE, then GOTO 4370. When you find that ‘YOU 
LAND ON COMMUNITY CHEST’ is not printed, you can 
stop the program and find out why, with the considerable 
advantage of knowing that the error can only lie in one of lines 
4370, 8400, 8407 and 8500. In this case the error is obviously 
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in line 4370. After experimentation, it is found that IF A(N) 
= (6 OR 14 OR 35) means IF A(N) = 1, you might decide to 
change line 4370 to IF A(N) = 6 OR A(N) = 14 OR A(N) = 
35 THEN GOSUB 8400. Once you find that this works, carry 
on with a few more lines. 

Obviously, just part of a new section of program may not 
work but usually it can be tested. It may sound slow work to 
check your program after every half a dozen or so lines, but it 
is much easier to deal with problems one at a time than all at 
once at the end. 

This is very good ‘preventive medicine’ but you may have a 
few problems left. These fall into two major types: 

(a) problems which produce false results every time the 
program is run; 

(b) problems which only appear occasionally, or under 
exceptional circumstances. 

The first type are the easiest to fix, while the second type may 
only appear after fifty games. However, there are some helpful 
rules which can be applied to many of these problems: 

(1) Locate the problem 

This may be simple if the program crashes - the type of 
problem and line where the program crashed are given on the 
screen, but where the program carries on with wrong results 
(e.g., invader swallows up missiles, or leaves a black trail), the 
error might be elusive. 

(2) Fitid the type of problem 

Where the program crashes, a number or letter indicates the 
type of problem. Otherwise check - e.g., does the screen show 
the wrong information? Is it a problem with space? Is there an 
arithmetical problem? 

(3) At this stage you may be able to correct the error 

If not, check whether GOSUBs and GOTOs go to the right 
places. Some other common bugs are: 
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FOR-NEXT loops 
Loops of the form 
FORF = 0TO20 

LET A(F) = 1 (or any number, variable, etc.) 

NEXTF 

will not work. This is because the array A is dimensioned with¬ 
out A(0). So, on coming to LET A(0) = 1, the program will 
crash. This is a common mistake made when converting 
programs from other makes of computer, or by those who have 
upgraded from an old ROM ZX80. 

This is another loop mistake: 

110 FORF = 1 TO 10 

120 IF A(F)<6 THEN GOTO 140 

130 NEXTF 

140 LET A(F) = A(F)+6 

150 PRINT A(F) 

160 NEXTF 

This loop will work perfectly unless A(10) = 6. In this case, 
A(10) will be increased by 6 and PRINTed. Remember that 
NEXT F means ‘next F unless finished loop, in which case just 
carry on’. This problem can be avoided by changing the first 
NEXTF to 
130 GOTO 160. 


Numerical calculations 

If a sub-routine such as 

100 LET A(N+6) = A(N+6)*(BC+2) 

1010 FOR G= 1 TO 5 STEP .5 

1020 LET A(N+6) = A(N+6)-G*RND 

1030 NEXT G 

1040 LET A(N+6) = A(N+6)+INT(RND*B) 

1050 RETURN 

gives the wrong answer, it is difficult to see why. Pinpointing 
the mistake may be done by adding PRINT statements. 

1007 PRINT “A(N+6)”; A(N+6) 
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1009 PRINT “N”;N 

1037 PRINT “A(N+6)”; A(N+6) 

1047 PRINT “B”;B 

1049 PRINT “A(N+6)”; A(N+6) 
also add 

1050 STOP. 

This shows how A(N+6) changes, and it is usually obvious 
where the mistake lies. For instance, you might have included 
a FOR-NEXT loop using FOR B = 1 TO 6, so instead of B 
being the cube root of 2, or whatever, it will be 6! 

Note the use of line numbers ending in 7 or 9. These can 
easily be picked out and removed after debugging. 


Space on the screen 

Make sure that the screen is not overfilled by any variation of 
your program. This is essential in adventure games, where the 
screen may be filled with writing: e.g., if the hero uses a two- 
handed axe, rather than a sword, against a creature with a long 
name - say a giant caterpillar - the screen may overfill and the 
program gives up. Things like this can be guarded against by 
using CLS more frequently. 


Poking in the wrong place 

Always SAVE a program which uses POKE before testing it 
out. Then, if you accidentally muddled a few addresses and 
POKE flying saucers into your program, nothing is lost. Here 
is an example of how mis-POKEing may appear - here the 
black squares should have been POKEd on screen, but instead 
ended up on the listing. 

10 6u5UB 3000 

100 PRINT RT Y,X; ‘' ";flT 1 

* y X } B $ 

' 110 if' INKEY$ = "•■ THEN GOTO 10© 

IS53 LET ■$ = INKEY $ 
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200 IF R$<"1' 
TO 300 


OR R$ >"S" THEN GO 

210 LET X=Xt 4- (A$aBS'') + ( 

$ = ”3" ) - ( fl$ = "5 " ) — = " 1" ) — = 


R 

220 LET BaY + (R $ = " 6 “ ) +®fl$ = " 3 " ) + { 
R $ =' ’ 4- ” ) - («$ = **7") - (R$ = " 1**> - (fl$ = "2 

230 LET X=X+ (X<0) - (|>31) 

24-0 LET Y«Y + ( Y < 0 ) — (Y)213 
ae® IF €,P-1 THEN GOTO 100 
26© FOR F = 1 TO 10 
270 NEXT F 
2S0 GOTO 100 

300 IF R$ = , ‘0‘' THEN LET 3P = -SP 
3X0 IF R$ = "9" THEN GOTO 4-00 
320 IF RB="T" THEN GOTO 500 



3-D Maze 


This program is a game which shows the Spectrum’s hi-res 
abilities to good effect. It occupies nearly all the memory of a 
16K Spectrum, so unless you have an expanded machine, room 
for expansion is limited. 

To use 

The program forms a maze which you have to try to escape from 
in the shortest possible time. 

When RUNning the program, you will have to wait for about 
a minute while the maze is randomly formed. Then you are 
shown your first view of the maze. You always start at a cross¬ 
roads in the centre of the maze, facing north. 
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You can move around the maze using the commands: 
on 
left 
right 
reverse 

These are typed in when the computer asks ‘What next?’ You 

must press ENTER after a command. 

To help you orientate yourself, by entering the command 
compass 

the direction in which you are facing is shown: 

East. 



The game is played in real time, and your score at the end is 
given in seconds (the lower the better). You escape by exiting 
the maze on any border and there may be several possible exits. 
To see how you are getting on, entering ‘time’ will tell you how 
long you have been in the maze (in seconds). 



Ti B>£ SO F3 f 
s 


A wrong turning and precious seconds are wasted! 

If you get stuck or are convinced there is no way out of the 
maze (this can happen, although very infrequently) enter 
‘help’.This will show you an overhead diagram of most of the 
maze (the whole maze on a 25x25 grid will not fit on the 
screen). Your position is shown, and the direction is given. By 
frequent use of the ‘help’ command you can escape easily from 
most mazes but it’s more of a challenge if‘help’ is a last resort. 


>ou are at the figure, i 
No r t rv . 


A bird’s eve view makes the route to freedom clear. 
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Note that when using ‘reverse’ the effect is to move you on a 
bit, then turn you round. So if you reverse at a crossroads you 
still see a crossroads. Reversing at a T junction when facing the 
T will place your back to the wall, giving a view like this: 



Reversing when the branch is to one side will change the branch 
to the other side. Reversing at a dead-end or in a straight 
corridor will show a straight corridor, and reversing in a bend 
may give a view like this: 


Time So Far 
= 530 secs. 
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To summarize, your commands are: 
on 

reverse 
left 
right 
time 
compass 
and help 

If you wish to stop the program you can press BREAK while 
the computer is drawing a picture. 

Notes on listing 

The program is in three main parts. Lines 50 to 760 are mainly 
concerned with DRAWing the pictures on screen. Lines 1000 - 
1760 deal with your INPUTted commands, and lines 7000-9110 
contain the routines which build up the maze and variables. 

10 Gosub set up maze routines. 

50-130 DRAW straight passage routine. At least part of this 
is used for all the pictures except left and right turns as 
viewed from the corner and when you exit the maze, 
di is the direction you are facing: 0 = north, 1 = west, 2 = 
south and 3 — east, af, al and ar are 0 if there is an opening, 
or 1 if there is a wall in front of you, to your left and to your 
right respectively. 

In lines 80 and 110 the area directly behind you is considered, 
to check if you are standing against a wall. 

150-180 Note use of logical operators. IF NOT al means IF 
al = 0 . IF af means IF af > 0 . 

200-260 DRAW passage leading off to left. 

300-350 DRAW passage leading off to right. 

If passages are drawn to both sides, crossroads and T 
junctions can be formed. 

400-420 Change left junction to left turn. 

430-470 Change right junction (or crossroads) to right turn (or 
T junction). 

500-530 Dead-end. 

550-590 T junction as seen from straight wall of T. 
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600-660 You escape. DRAW doorway, print time taken and 
make noise. 

700-760 This routine DRAWs left and right turns as seen from 
the corners. 

The multiplication by al means that the routine will draw a 
corridor to the left when al = 0 and to the right when al = 1. 
1000-1080 Enter command routine. All the drawing routines 
and command routines eventually end up here, where you 
ENTER your next command. A command is acknowledged 
by a short BEEP when you press ENTER. 

1200-1220 Go‘on’. 

1300-1330 Go‘left’. 

1400-1430 Go‘right’. 

Note that you cannot walk into a wall. 

1500-1510 ‘Reverse’. 

1550 ‘Compass’. 

1600 ‘Time’. Uses FuNction DEFined at end of program. 
1700-1760 ‘Help’ routine. PRINTs overhead view of maze, 
missing off the top or bottom few lines according to your 
position. The use of a special character instead of a space for 
a corridor is due to the need for a central solid block when 
there is a square of four-corridor sections, as you cannot have 
large open spaces. 

7000-7010 PRINT instructions. 

8000-8660 Set up random cave system as 25 x 25 grid in blocks 
of 5x5 locations. 

The POKE in line 8010 puts randomly coloured squares on 
the lower part of the screen, forming a simple pattern to 
watch while the maze is being formed. 

The program stores the maze in a string array Z$, and each 
5x5 block is chosen randomly from the selection of 10, in 
lines 8200-8660. 

Lines 8020 to 8050 ensure that the 5x5 block chosen will be 
copied into Z$ in one of four ways, i.e., normal, reflected top 
to bottom, reflected left to right, or both. 

Thus there are millions of ways the maze can be formed. Line 
8090 puts a crossroads in the centre of the maze, so that you 
are unlikely to have no way out. 
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8800-8880 X and Y are your initial co-ordinates, i.e., in the 
exact centre of the maze, di is your direction, north. X$ con¬ 
tains the names of the directions. 

8830-8850 DEFines three FuNctions similar to those shown 
in the manual to use the real time clock (systems variable 
FRAMES). 

8860 sets up two user-defined graphics - a man and a corridor 
section. 

8870 starts the internal clock. Note that this happens 
immediately before the game starts, so your time taken does 
not include the time when you are waiting for the computer 
to start. 

9000-9030 is the DATA used to tell the computer which 
square is in front of you and to either side. They are used in 
pairs, e.g., in line 9000, 0, 1 means that when facing north, 
the location in front of you is (X+0, Y+1). 

9100 DAT A for user-defined corridor cell. 

9110 DATA for user-defined man. 


Listing 


1 REM 3-D Maze 

2 REM © S.Robert Speel 

10 GO SUB 7000 

20 XNK 1: PAPER 6: BORDER 3. C 


50 CLS : RESTORE 9008+10»di: R 
ERD f1,f2,11,12,rl t r2 

60 IF X =1 OR X-25 OR y =1 OR y = 
25 THEN GO TO 90 

70 LET 3f=URL Z$(X+fl,y + f2) . L 
ET al=URL z* (x + ll,y+l2) : LET ar = 

url z$(x+ri,»3fr2J 

30 IF z$ tx -f l,y-f2.» = "1" RNS> a l 
+a r =1 THEN GO TO 700 

90 CLS ; PLOT 80,0: DRRU 0,150 
: DRflU 50,-50. DRAW 50,50. DRRW 
0,-150. DRRW -50,100. DRAW -50,- 
100 

100 IF X =1 OR X -25 OR y =1 OR y = 
25 THEN GO TO 600 
110 IF Z$ (X - f 1 , y - f2) ss*'l" AND NO 
Tat RND NOT a r THEN GO TO 550 
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120 FOR f=100 TO 1 STEP -2: FLO 
T 130— f/2,100— f: DRAW f,0: NEXT 
f: JF X =1 OR X=25 OR y =1 OR y =25 
THEN GO TO 600 

130 FOR f=100 TO 1 STEP -1.6: P 
LOT 130 — f/2, f /2 + 100: DRAW f,0: N 
EXT f 

150 IF NOT al THEN GO TO 200 
160 IF NOT ar THEN GO TO 300 
170 IF a f THEN GO TO 500 
180 GO TO 1008 

200 PLOT 90,20: DRBU 0,120: PLO 
T 90,60: DRRU 20,0: DRRU 0,60: D 
RRU -20,0 

210 PLOT 90,21: DRRU INVERSE 1; 
20,4-0 

220 FOR f =30 TO -10 STEP -2: PL 
OT 90,50-f: DRRU 30-f,0: NEXT f 
230 FOR f =20 TO 1 STEP -1. PLOT 
90,140-F: DRRU f,0: NEXT f 
24-0 IF NOT ar THEN GO TO 300 
250 IF a F THEN GO TO 4-00 
260 GO TO 350 


300 PLOT 170,20: DRRU 0,120: PL 
OT 170,60: DRRU -20,0: DRRU 0,60 
: DRRU 20,0 

310 PLOT 170,-19. DRRU INVERSE 1 
; —20,4-0 

320 FOR F=30 TO -10 STEP -2. PL 
OT I70,F-50. DRRU f -38,0: NEXT f 

330 FOR f =20 TO 1 STEP -1: PLOT 

170,14-0 - f : DRRU - f , 0 : NEXT f 

34-0 IF a f THEN GO TO 4-50 

350 GO TO 1000 

400 FOR f =61 TO 119: PLOT INVER 
SE l;110,f: DRRU INVERSE 1;60.0: 

NEXT f 

410 PLOT 130,60. DRRU 8,6D 

420 GO TO 1000 

450 FOR r =61 TO 119: PLOT INVER 
SE 1;110,f: DRRU INVERSE 1;59,0: 

NEXT f 

460 IF aL THEN PLOT 118,60: DRR 
U 0,60 

470 GO TO 1000 

580 FOR f =60 TO 120: PLOT INVER 
SE l;118,f; DRRU INVERSE 1;59,0: 

NEXT f 

510 FOR F —110 TO 150 STEP 2: PL 
OT f,60; DRRU 0,60: NEXT f 
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520 PRINT AT 9,i+j"DEAD”iRT 10, 
14-; "END" 

530 GO TO 1000 


550 FOR f=7 TO 14: PRINT AT f,& 
*'; RT f ,21; " " : NEXT f F 

OR f =14 TO 21: PRINT RT f,0; PAP 
ER 6— 1" f >10) 43; _ 

"; NEXT t 

560 FOR f =24 TO 63 STEP 2- PLOT 
0,f: DRRU OUER 1;255,0: NEXT f 

570 PRIN T RT 0,0; . FOR_ f =0 TO 6 

PRINT 


: NEXT f 

580 FOR f=0 TO 1: PLOT 110+f*4© 
,63: DRAW 0,57: NEXT f: FOR f=60 
TO 100 STEP 2: PLOT 80+fx2,f: D 
RRU 100-f,0: NEXT f _ 

590 FOR f=100 TO 120: PLOT 230- 
f,f: DRRU f*2-200,0: NEXT f: GO 
TO 1000 


600 BORDER 4: FOR f=10 TO 0 STE 
P -10: PLOT 100 — f,20: DRRU 0,80 + 
f: DRRU 30+f,40+f: DRRU 30+f,-40 
-f: DRRU 8,-80-f: NEXT f 
610 FOR f =20 TO 100: PLOT 100 ,f 
: DRRU 60,0: NEXT f 
620 FOR f =100 TO 140: PLOT 25 +f 
*3x4.f: DRRU 212-f+19/12,5,0: ME 
XT f 

630 FOR f=l TO 30: PLOT OUER 1; 
PRPER 6;100+RND*S0,28+RND*30: N 
EXT f 

640 PRINT RT 0,0; '* You have rea 
ched the ex it.“'“You tooK"'FN c i 
3 ; “ Se conds . " 

650 FOR f =10 TO 67: BEEP .1, f-5 
0: NEXT f: BEEP 2,13 
bt>0 STOP 


700 FOR f =19 TO 21: PRINT RT f, 
0; PRPER 3;" 

"; NEXT f 

710 FOR f =24 TO 63 STEP 2: PLOT 
al*(f/2+80) , f : DRRU 180-f/2-aU 
5,0: NEXT f 

720 FOR f =60 TO 180 STEP 2: PLO 
T 80 + f/2, f: DRRU 100-f,0: NEXT f 
730 FOR f =100 TO 120: PLOT 230- 
f,f: DRRU f *2 -200,8: NEXT f 
748 FOR f =128 TO 140: PLOT al*i 
238-f 3 , f: DRRU 38 + f-3l*5,8. NEXT 
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750 PLOT 110+31*4-0,63: DRAU 0,5 
6: PLOT 170-3 1*60,24-: DRAW 0,116 
76© GO TO 1000 

1000 INPUT "What next? ";a$. BEE 
P 1,2© 

1010 IF a$= M on" THEN GO TO 1200 
1020 IF a$="left" THEN GO TO 130 
0 

103© IF a$='Tight" THEN GO TO 14 
8© 

104-0 IF a$ = "reverse" THEN GO TO 
150© 

1050 IF a$ = "compass" THEN GO TO 
155© 

1060 IF a$="time“ THEN GO TO 160 
8 

1070 IF a$="heIp " THEN GO TO 170 
0 

108© GO TO 1800 

1200 IF a f THEN GO TO 1©0© 

1210 LET x =X + f1: LET y=y+F2 
1220 GO TO 50 ' 

1300 IF a t THEN GO TO 180© 

131© LET X —X + 11: LET y =y + l 2 
1320 LET di=di+l: IF di>3 THEN L 
ET d i =0 
1330 GO TO 50 

14-0© IF ar THEN GO TO 1000 

14-10 LET X=X+r 1: LET y=y+f2 

14-20 LET d i =d i — 1: IF di <0 THEN L 

ET di =3 

14-30 GO TO 50 

1500 LET di=di+2: IF di>3 THEN L 
ET di =di -4- 
1510 GO TO 50 

1550 PRINT RT l,l;x$(di*5+1 TO d 
i*5+53: GO TO 1000 

1600 PRINT RT 0,15,"Tise So Far" 

; !RB 15;“ = ";FN c (3 ; " secs.": G 

O TO 1000 

1780 LET Fp=25-(y<133*7 
171© C-LS : FOR f = fp TO fp -17 5TE 
P -1: FOR d=l TO 25: LET g$=CHR$ 
14-4-: IF Z*tg,fJ="l” THEN LET 9 * 

17:20 IF X=9 RND U = f THEN PRINT I 
NK 0; FLASH l;CHR$ 14-5; : GO TO 1 
74-0 
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173E PRINT g$; 

174.0 NEXT g : PRINT : NEXT f 
175© PRINT "You are at the figur 
e. facing "'x${di*5+l TO dif5+5 
} ;**.■■ 

176© GO TO 1000 

7000 PRINT "Corridors .Cossisand 

s are.-.on. reverse.left. 

right co is pass.time . and he l 

P » 

7010 PRINT “Your aim is to exit 
the caves in the shortest possib 
le time." 

6000 PRINT "Please Wait": RANDOM 
IZE : DIM Z $ (25.25) : DIM y$(5,53 
601© FOR f=l TO 25 STEP 5 7 FOR g 
=1 TO 25 STEP 5. POKE 23000+RND * 
295,RNDJ255 


6020 LET 
T ax =5 

a X = 1 : 

IF 

RND < 

. 5 

THEN 

LE 

S030 LET 

a y = 1 : 

IF 

ax =5 

THEN LET 

ay =-l 
8040 LET 
T b.X =5 

bX=l: 

IF 

RND < 

- 5 

THEN 

LE 

S050 LET 

by =1: 

IF 

bx =5 

THEN LET 


by =-l 

8060 GO SUB 6200+INT (RND*10)*50 

6070 FOR J=0 TO 4: FOR K =0 TO 4-: 

LET z$(f+j., g+fc) =y$ (jtay+ax, Kfby 
+bx): NEXT K: NEXT j 

3080 NEXT Q: NEXT f: GO SUB 8200 
3090 FOR J=1 TO 5: LET Z$(10+j,l 
1 TO 15) =y $(j) : NEXT j: GO TO 86 
00 

S200 FOR h=l TO 5: LET y$(h)="ll 
011": NEXT h 


8210 

LET 

y $ (3) 

="00000": 

RETURN 

8250 

FOR 

h =1 TO 5: LET 

y$ (h) 

= "11 

011" 

NEXT h 



3260 

LET 

y $ (33 

-"11030": 

RETURN 

83@e 

LET 

y $ ( 13 

="11111". 

LET 

y $ 

3 =y$(13 



3310 

LET 

y $ (4) 

="11011": 

LET 

y* (5 

3 =y $ (43 




332© 

LET 

y $ (33 

="00000": 

RETURN 

835© 

LET 

y $ (13 

="11111": 

LET 

y $ (2 

y =y $ 

(13 



8360 

LET 

y $ (4 3 

="11011": 

LET 

y $ (5 


) =y $ (4) 




3-D MAZE 


83 


S370 

LET 

y $ (33 

="0©011" 

- 

RETURN 

34-00 

LET 

y $ ( 13 

="11011” 


LET 

y 4 (5 

3 =y $ ( 1 3 





84-10 

LET 

y $ (23 

="10001" 


LET 

9 4(4- 

3 =U $ (23 




34-20 

LET 

y $ <33 

="00100” 


RETURN 

S4-50 

LET 

y 4 (13 

="11011” 


LET 

y4 (5 

3 =y4(13 





y4(3 

34-30 

LET 

y $ (23 

= "10101 ” 


LET 

3 =”00100’ 





34-70 

LET 

y $ (4-3 

="10111" 


RETURN 

3500 

LET 

y$ (13 

="11811" 


LET 

y 4 (2 

)="00101’ 




3510 

LET 

9 4 <33 

="10100" 


LET 

y 4 < 4- 

3 =”10001’ 




3520 

LET 

y 4 (53 

= ’’11011" 


RETURN 

3550 

LET 

y $ (13 

="11000" 


LET 

y 4 (2 

3 =”11010’ 

• 





3560 

LET 

y $ i 33 

="10001" 


LET 

y 4 (4- 

3 =’’00000’ 





357© 

LET 

9 4 (53 

="11011" 


RETURN 

3600 

LET 

y $ (1) 

="11011" 


LET 

y4 (5 

3 =y$(13 





3610 

LET 

y 4 (23 

="10011" 


LET 

y 4 (3 

3 =”10100’ 





3620 

LET 

y 4 (4- 3 

="10001" 


RETURN 

365© 

LET 

y 4 (13 

="11001" 


LET 

y 4 (2 

3 =”11100’ 

* 





3660 

LET 

y4 (53 

="11011" 


RETURN 

3300 

LET 

X =13: 

LET y=1 

3 



3310 

LET 

d i =0 






8B20 LET x$="NorthUest SouthEast 

8830 DEF FN a (3 =INT ( (PEEK 23672 
t256iPEEK 23673 +65536 fPEEK 23674- 
> /58) 

SS4.0 DEF FN b(X,y) = (X +y +RSS (X -y 

} 3 ,'2 

3350 DEF FN C (3 =FN b(FN a C) ,FN a 
( 3 3 

SS60 RESTORE 9100: FOR f=© TO 1: 

FOR g=0 TO 7: READ 3: POKE USR 
CHR$ (U4.+ n +g,a: NEXT g: NEXT f 
S870 FOR f =23674- TO 23672 STEP - 
1 : POKE f .. 0 : NEXT f 
S8S0 RETURN 
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9000 DATA 
901© DATR 
902© DATA 
9030 DATA 


0.1 . - 1 . 0 - 1 , 0 
-1 ,0 . 0 ,-i. 0 ,1 
0 , - 1 .. 1 ..©, - 1,0 
1,0,0,1,3,-i 


9100 DATA 195,129,0,0,0,0,129,19 
5 

9110 DRTA 56,55,16,124- , 166,166, 4 - 

0.10S 



Boat Race 


To use 

In this Spectrum program you have to bet on a race between 
four boats. You start with £100 and you need £500 to win. You 
may bet any amount on each race. 



You het £15 on blsck 


Notes on listing 

10 A$ holds the colours of the boats. 

20 Define ‘boat graphic’ from data. 

160-650 The actual race. 

Lines 110-130 draw the course which the boats take, and the 
finishing line. 

200 This gives the engine noise. 

210 For each of the four boats, print boat f at correct position. 
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220-230 X(f) contains the boat’s position, and this is increased 
by a random amount. If the race has been won, goto 500. 

240-250 Repeat for all four boats and then repeat until winner 
found. 

500-530 Race over, winner announced, short victory tune. 

600-650 If you chose the winner goto 700. Otherwise deduct 
your bet from your money, check if you have lost, and start 
new race procedure. 

700 You chose the winner, and get three times your original 
stake money as winnings. 

800 Print your current cash and goto ‘start new race’. 

900-940 You win, short tune played, game ends. 

1000 You start with £100. 

1020-1050 List alternative boats on which bets can be placed. 

1100-1130 Input choice of boat and amount of bet, make sure 
you have the money and start the race. 

8000-8010 Back and front halves of boat, respectively. 

Listing 


1 REM BOflTRRCE 

2 REM Copyright 1982 

S.Robert SPee t 


I© LET a$="blactblut red wauv 


20 FOR f =1 TO 2: FOR g=0 TO 7; 
RERD a: POKE USR CHR$ (143+n+g 
, a : NEXT g : NEXT t* 

30 RANDOMIZE 

50 INK 0: PRINT "Boat race" 

100 GO TO 1000 


110 FOR f= 1 TO 5 

120 PLOT 10, f #30: DRAW 24-0,0: N 
EXT f 

130 DRfiU 0,-120 

140 PRINT "Boat race" 

150 DIM X(4) 

160 PRINT RT £0,1;"You bet £",b 
et; " on ";a$Cch*5-4 :0 ch*5) 


200 FOR F = 1 TO 4: 
SEEP .©05,-5 


BEEP .005.2: 

*> 
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210 INK if- 15: PRINT fiT f*4..X (f 
);" ",CHRt 144 . - CHP$ US 
220 LET X i f > —X f F J tRND *1.5 
230 IF X(f)>23 THEN GO TO 50© 
240 NEXT f 
£50 GO TO 2*30 


50© INK ©. PRINT fiT 20.1; “Race 

over. 

510 PRINT "The ";a$( (f-l)JSti T 
O boat wins." 

520 FOR Q=1 TO 24: BEEP .2,9-5: 
NEXT g 

530 BEEP 1,£0 
600 CLS 

510 IF Ch=f THEN GO TO 70S 

620 PRINT "you lose your bet . . , 

i • 

*630 LET cash=cash-bet: IF cash? 
0 THEN GO TO 800 
640 PRINT "you have no money te 
F t_ -you lose . " 

550 STOP 

. 7©0>PRINT "Your bet has paid of 

f ! i i i i ** 

710'PRINT "You win £";3*bet 

720 LET cash=c ash +3*bet 

730 IF cash>500 THEN GO TO 300 


S©0 

PRINT 

"you 

now have 

£‘‘; cash 

810 

GO TO 

1020 



300 

PRINT 

"you 

have now 

a ffi a s s e d 


cash 




910 

PRINT 

“and 

can affor 

d to bu 


y your own speedboat." 

9S0 LET C$="967676545432111" 
330 FOR f=l TO 15. BEEP ,2,URL 
C $( f > : NEXT f 
340 STOP 


1000 LET cash=10© 

1010 INK 0: PRINT "you have £100 

1020 PRINT "which boat do you be 
t on?" 

1030 FOR f=l TO 4 

104© PRINT f a$ i f *5-4 TO f 

* 5 ) 

105&, NEXT f 
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1100 INPUT Ch 

1110 PRINT "how much do you bet7 
» * 

1120 INPUT bet: IF be t>cash THEN 
LET bet=cash 
1130 CLS : GO TO lie 

3000 DATA 0,0,0,31.36 - 1 £>S , 127,63 
3010 DATA 64,224,64,224,144,255, 
252,248 



Sheepdog 


To use 

You control a sheepdog and muster a small flock of four sheep 
through a gate into the next field. Your aim is to do this in as 
short a time as possible. The sheepdog is moved using the 5, 
6, 7 and 8 keys. The sheep wander around at random, but if 
the sheepdog comes too near, they will run away. Once through 
the gate to the right of the screen, a sheep will not come back. 

When you start, you may find it difficult to get even one 
sheep through the gate, but with a little practice you will 
improve. The way to get a really fast time is to keep the sheep 
in a flock and get all four to go through the gate together. If you 
split up the sheep and chase them through one by one, you will 
not get a very good score. 



A clever sheepdog, keeping the sheep together. 
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The flock has split - what every sheepdog dreads. 

Notes on listing 

This game is designed for expanding and a few parts make little 

sense in this shorter version, notably string array A$. 

10 Gosub set up user-defined graphics and variables. 

1000-2520 Main loop. 

Lines 1000-2020 are repeated once for each sheep. 

1010-1020 sy and sx are the y and x movements of a sheep. 
Initially, they are set according to whether the sheepdog is 
within three character spaces away. 

1030 Random factor to make sheep wander around in a typical 
sheep-like manner. 

1040-1050 Make sure sheep’s move will not take it offscreen, 
or over the fence. Note it is possible (if you are very lucky 
indeed) for a sheep to jump the fence, but in general they will 
only go through the gate. Note these lines also keep a sheep 
in the other field once it has passed through the gate. 

1060-1080 Change sheep’s position co-ordinates by adding sx 
and sy. PRINT space at sheep’s old position and user- 
defined sheep at new position. 
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1090 Check for game finished (all sheep in other field). If so, 
goto end of game. 

1500 Print sheepdog, facing left or right. Note dog usually 
faces right, as this is the way the sheep should be herded. 

2000-2010 Change x and y co-ords of dog according to key 
pressed. Note that as this happens inside the f loop, once for 
each sheep, the dog can run four times as fast as the sheep. 
This gives enough manoeuvrability for the dog to be able to 
keep the sheep in a flock, if you are skilled enough. 

2020 Repeat for all four sheep. 

2030 Increment go counter. 

2500-2520 Print rough estimates of time taken. Every 20 goes, 
reDRAW fence as sheep often dent it. 

Repeat cycle until game finished. 

4000-4200 End of game. 

4010 finds exact time taken. 

4020 gives short‘tune’. 

4100-4110 deals with the highscore. 

4120-4200 offers another game. 

8000-8520 used in each game. Array a holds the sheep’s 
co-ords, and di is the direction the dog is facing in: 0 = right, 
1 - left. 

8200-8210 sets up a user-defined function to calculate time, 
and POKEs the internal clock to zero. 

8500-8510 Set colours and draw fence. Fence routine often 
used (every twenty goes) to keep fence intact. 

9000-9010 User-defined sheep and sheepdog. 


Listing 


1 REM Sheepdog 

2 REM © S-RGhert Speel i3S2 

10 GO SUB S000 

1SSS FOR f=l TO 7 STEP 2 
1010 LET sy=SGN Catf3-y3 AND ABS 
tatlfl) -X) <4 AND ABS (3 C f ) —vt-3 < 4- 
1020 i_ET SX=5GN faff+13-X J AND R 
BS (a (/) -«) <4. AND ABS (3(f+ 1) -X) 
<4- 
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2S3S LET SX=SX+INT (RNDJ3)/2-.5 
LET sy =sy + INT (RND*33/2-.5 
204-0 LET SX=SXt(3(ftl) (DfS-OC 
+ i) >29) t2-ta (f+1) >22 RND 3 £ f 4-1) 
27 2ND faff) <9 OR aff) >12)) + Of 
+ 2) >25 fiND aff +2) <273*2 
2050 LET sy=sa +fa if) <2)*2-ia 
29) *2 

2060 LET 3if)=3if) +S«: LET 


tf) > 


atftl 


) =3 f f +2) fSX 

23~S PR XNT RT aff) — S ii , 3 f f -j-2 3 — S X i 


20S© PRINT INK URL a $ f f ) .; RT 3(f) 

. a t f +2) ; CHR3S 24-6 

1390 IF a f2) >25 RND 3 (4-) >25 RND 
a fS) >25 RND a (S) >25 THEN GO TO 4 
000 


25©0 PRINT RT U-y2,X-XlJ " "; INK 

0j RT y ,X, CHR if' (244- >di 3 


^000 LET X2=(INKEY$r”S”)—fINKEY& 
= "5"3 + fx <23 - (X >23) ; LET wl=fINKE 
Y$="6"3 -fINKEY$="7") + fy <23 -fy >29 
>: LET di = i INKEY$=”5” '• 

2020 LET X=X+xl: -- 

2020 NEXT f 
2030 LET gosgo+1 


LET y =y +y1 


2500 PRINT INK 0;RT 0,27;INT tQO 
*1.5) 

2520 IF <J 0/20 = XNT fQO/203 THEN G 

O SUB B510 

2520 GO TO 1000 

4.000 INK 0: PRINT RT 10,2; "YOU h 
ave penned all“;BT 11,2;"the she 
ep . ** 

4.010 LET SC=FN CO: PRINT RT 13, 
2;"You took ";sc;“ Seconds." 

4-020 INK 0: FOR f =-25 TO 25: BEE 
P -1, f: BEEP .2,25— f: NEXT f 

4-200 IF hs >S C THEN LET hs =SC; PR 
XNT RT 15,2;"WeLl done - a new r 
e cord *" 

4-12© PRINT RT 17,1; "HighSCOfe = 

•• J KS 

4.220 PRINT RT 28,3; "flnothef ga»e 
? fg/n) “ 

4.130 IF INKEY$=”y" THEN GO TO 4.2 
00 

4.14-0 IF INKEY$ = “n" THEN PRPER 7: 

BORDER 7: CLS : STOP 
4-15S GO TO 4-230 
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4-230 GO SUB S100: GO TO 1030 

S003 FOR f=0 TO 2: FOR g =© TO 7: 

READ a: POKE USR CHR$ (14-4-+f)+g 
,a: NEXT g: NEXT f 
©01© LET hs=©0© 

3100 DIM a(S3: DIM a$(Sl; FDR f= 
1 TO 7 STEP 2: LET 3(f) =10+f: LE 
T a ( f +1) =5 

oil0 LET a$(f3="6”: LET a${f+l)=: 
"1”: NEXT f 

S120 LET X =1: LET y=I: LET di =0 
3130 LET xl=0; LET yl=0: LET g O = 

0 

6200 DEF FN a (m , n 3 = {£» +n +RB5 (»-n 
>1x2: DEF FN b() =(PEEK 23672+256 
+PEEK 23673+65536+PEEK 23674-1x50 
: DEF FN Cl'} =FN a (FN b ( 1 . FN bd) 
6210 POKE 23672,0; POKE 23673,0: 
POKE 23674-, 0 

S5©0 PfiPER 4-: BORDER 6.- CLS 
6510 INK 2: FOR f= 1 TO 4-: PLOT 2 
30+f+2+( f >21+2,0; DRRU 0,72: DRR 
U INK 4-; 0,32: DRRU 0,71: NEXT f 
6520 RETURN 


3000 DRTR 0 
9,0,0,64-. 97 
9010 DRTR 0 
© 


V £5 U 

have 

t h £■ 

sheep 

You 

too K. 

well 

done 

H i g h 

score 


, 2 , 134 -, 125 , 124 - , 194 - , 12 
, 190 . 62 , 67 , 129 , & 

, 7 , 255 , 252 , 252 , 66 , 66 , 


penned all 

x 

31 Se condi. 

- a new recur 



= 91 



flnother 


gaf»e? (y/n) 
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SHEEPDOG 


When you have become proficient at Sheepdog you can try this 
more advanced version. 

To use 

The aim is the same as for Sheepdog, but this time there is more 
skill needed. You may have wondered why the sheep are yellow 
rather than white. The answer is that they are dirty. You will 
have to drive the sheep into the left end of the sheep-dip at the 
top left of the screen. They will come out clean and white. For 
each sheep that you fail to dip, you add 25 seconds to your end 
score. 

There are bushes dotted around the right-hand side of the 
field, and the sheep may stop at these to graze on the leaves. 
Neither sheep nor sheepdog can actually go into a bush, 
although the sheep can jump over them. Now that you are so 
expert, you can naturally handle six sheep rather than the 
original four. 
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Notes on listing 

IMPORTANT This is not a complete listing. Type it in exactly 
as shown, then MERGE with Sheepdog. The complete Sheep¬ 
dog Champion can then be SAVEd normally. Note that this 
listing must be MERGEd on top of Sheepdog, not the other way 
round (i.e., type this in, SAVE it, LOAD Sheepdog, and 
MERGE this listing). 

1000 deals with sheep-dip. Sheep’s colour changed, bleat 
noise, move sheep one onwards and go to ‘change sheep’s 
co-ords’. 

1030-2000 Some minor changes and moving lines around. 

1090 checks if six sheep rather than four are through the gate. 
2010 Check if a tree is in the character-square where a sheep 
would otherwise be printed. Trees are BRIGHT so have 
large ATTRibutes. 

2500 The rough ‘time taken’ has to be altered. 

4030-4060 Check how many sheep have been through sheep- 
dip. Make your score worse by 25 for each un-dipped dirty 
sheep. 

7000-7050 Rules have been added. These can be expanded as 
desired. 

8000 There is one extra graphic to be defined. 

8100 Arrays for six sheep instead of four. 

8500 PRINT 10 bushes at random in right hand part of field. 

Note that they are BRIGHT for easy detection by ATTR. 
8520 PRINT sheep-dip. 

9020 DAT A for user-defined bush. 

Listing (LOAD SHEEPDOG and MERGE this listing) 

X REM Sheepdog Champion 

10 INK 0: PAPER 5: BORDER 1: C 

i_5 : GO SUB 7000 

1000 FOR f=i TO 11 STEP 2. IF C5 

i f ) =6 OR Si'f) =7) AND atf-J-iJ>S AN 
D a {f +1) <12 THEN LET sx=i: LtT a 
d = 1 : LET sy=0: LET 3 $Cf) = ' 7”: LE 

T a$( f +1.» =**0": FOR 9=1 TO 5. BEE 

P .01,18-RNDf9: NEXT 9: GO TO 10 
60 
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1030 LET £X =Sx +INT iRNDi3)/2-.5: 

LET sy=sy+XNT fRND*3J/2-.S: IF 
(3 4 f ) =6 OR a t f .1 =7.' AND 3 \ f + 1 * < 14- 
PND a (f+15 >10 THEN LET ss=flBS S 

x 

1050 LET SM=sy+(a(f)<25+2-fa(f)> 
19i +2+fa (f+1) >5 PND aff+1) <9 PND 
a if) =95 

1068 IF flTTR (aif) +sy , a (f+1> +sx > 
=96 THEN LET SX=0: LET sy=8 


107® LET 3(f)=B?f)+sy: LET a{f+1 
)=a(f+I)+sx: PRINT PT a(f>-sy,a( 
f+lJ-sx;** " 

1080 PRINT INK UPL at(f5;PT B(fl 
,a(f+i);CHR$ 14-6. if ad then go 
SUB 8520: LET ad=8 


1090 IF a{25 >25 PND a (4-) >25 PND 
a C6J >25 PND a f85 >25 PND a CIO) >25 
HND a (12) >25 THEN GO TO 4-800 
2000 LET X 1 = C INKEY $ = " 8 *' ) - ( INKEY $ 
= **5“) + (X <11 — (X >23? : LET yl=(THKE 
Yi=“6“5 - (INKEYi=‘7".5 + (y <15 - fy >28 
LET di = (INKEY4="5"5 


2818 IF flTTR l'y+ylyX+Xi.» =96 
LET x1=0: LET yl=8 
2820 LET X =X +x1: LET y=y+yl 
2088 NEXT f: LET go=go+l 


THEN 


2508 PRINT INK 0;PT 0,27;INT (go 
*3) 

2510 IF go/10=INT (go/10) THEN G 
O SUB S510 


4-030 LET Sd-0: FOR f -1 TO 6: LET 
Sd=sd +UPL a $(f *25 : NEXT f 
4-04-0 PRINT PT 15,2;6-sd; “ Sheep 
sere cleaned" 

4-050 PRINT PT 17,3; "Penalty = ; 

Sd +25 

4-060 LET 5C=sc+25iSd 


4-100 IF hj >sc 
INT PT 18, 1; " 
ecord ? " 

4.110 PRINT PT 
hS 

4-120 PRINT PT 
'? ty/n) ** 


THEN LET hs =SC; PR 
We 1 1 done - a new r 

19,1;"Top score = 

21,3;"Another game 


7008 PRINT " Sheepdog";PT 2,1;” 
In this gasie you conti o l a" 
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"7010 PRINT '"sheepdog 
5 j 6,7 and 8. Your ai 
the 6 sheepinto the 
e right.” 

70S© print " However 
are dirty and s h o u 
driven " 

7038 PRINT 
heepdiP. If 
sheep you 
784.0 PRINT 
he flock, 
as short a 
7050 PRINT 


tart.) 


INPUT 


th rough 
you fail 
wiIt be 
Th e a i m 
dipped a 
time as 
tpres 


using Keys 
J» is to herd 
f ieId on th 

.. the sheep 
Id First be 

the rai led s 
to dip the 
penalised.” 

is to get t 
nd penned in 
possibte.“ 
s ENTER to s 


g=0 TO 7; 
114-4.+ f ) +g 


800C- FOR f -£* TO 3: FOR 
REfiD a. POKE USR CHR6 
,a: NEXT g: NEXT f 
8100 DIN a(IS): DIM 3$!12)• FOR 

814-0 LET a d =0 

s ?ig E p i5ivi?r 2 ' B: poke 23673 

8500 PAPER 4-. BORDER B: CLS - FO 
R , f =3: TO -£ LET r S =INT !RHDf20) 

•' LE: pr=l5 + INT (RND*8) : PRINT I 

N Ni^'T B, f IGHT 1;RT rs 'P f ;CHR$ 14-7 

® E g£ PR S” T PRPER INK i - R_r 5,8 

<****** ;RT 8,8;” ";RT 7,8;” 

. R: ^ . 8; " ttUtt " : RETURN 

90S0 DRTR 0,16,84., 56, 14-6,84., 55,1 
& 



Knight Fight 


To use 

This game involves a fight between two knights. 

You control a white knight, and the computer has a black 
knight. At the start, you have to select armour and weapons for 
your knight. You have 100 gold coins to spend, which means 
you cannot have the heaviest armour and lance and the best 
weapons too. 

A mace is the strongest attacking weapon, a sword the 
weakest. However, a sword is useful in defence as well as 
attack, whereas an axe or mace is not. 

Once you have chosen your weapons, the enemy’s choice is 
announced. The fight then begins. 

At first, the knights joust on horseback until one knight is 
knocked off his horse. Apart from your choice of lance and 
armour, you have no control over the jousting. Once one knight 
is unhorsed, the other will dismount and the fight continues on 
foot. 
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You attack the opponent knight by moving near to him using 
the keys 5 and 8 to move. You ‘hit’ by pressing one of the keys 
1, 2, 3 or 4 - the number determining the strength of hit. Each 
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time you hit, your strength, shown at the bottom left of the 
screen, goes down by that number. If your strength reaches 
zero, you die. By moving away from the enemy, you can 
gradually recover your strength up to your maximum. 
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A successful hit on the enemy lowers his strength by one perma¬ 
nently. The enemy strikes you in exactly the same way. This 
means that fighting consists of rushing up to your opponent, 
hitting at him a few times, then retiring to recover from your 
exhaustion. It is essential that you keep an eye on your own 
strength to know when to retreat. Gradually your maximum 
strength will be depleted (and so, hopefully, will your 
opponent’s) until one or the other, with a strength of three or 
less, cannot strike properly. Death for the weaker usually 
follows quickly. 

Notes on listing 

This is rather a long game which occupies nearly all of the basic 
16K Spectrum. Due to the large numbers of user-defined 
graphics, the use of CHR$ 144, etc. has been dropped, and 
graphics characters are used in the listings. All capital letters 
inside quotes should be graphic letters, i.e., you must go into 
graphics mode, then press the letter. If you forget one or two. 
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you may see knights charging around on the backs of ABC 
creatures. If this occurs, BREAK the program, find the letter, 
and replace it with a graphic letter. 

10 Gosub start routine, buy weapons and set up user-defined 
graphics. 

100-110 Basic ‘charge on horseback’ routine. Graphics ABC 
and LKJ are the horses, DEF/GHI and ONM/RQP are 
alternate sets of legs to give a galloping effect. In lines 100 
and 130, the underline character is used (symbol shift 0) as 
the point of a lance, US and TU are the rest of the lance and 
the knight. 

160 Gives a simulation of the sound of horses’ hooves, which 
sounds very good when amplified. 

170 Deals with a possible crash between the two knights. 

180 Checks if the knights are about to go offscreen. 

200-910 Copes with what happens when the knights meet on 
horseback. 

200-240 is the actual hit, strengths of opponents being 
calculated to take in armour, lance-type and shields. 

500-540 shows the left knight falling off. 

600-840 shows the right knight falling off. 
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800-840 checks if a knight has fallen off at the end of a run. 
900-910 deals with turning at the end of a run when neither 
knight is knocked off his horse. 

1000-1040 Turns horses round at end of run when one man is 
down; and dismounts other knight. 

1100-1430 Foot-fighting loop. 

1100 PRINT two knights with correct weapons. 

1120 moves your knight. 

1130 moves opponent’s knight, including automatic retreat 
when strength below 3. 

1200-1260 Your knight hits opponent if in range. 

Checks if you die from exhaustion or enemy dies from 
wounds. 

1300-1320 Enemy hits you. Your hits and your opponent’s 
depend for their success on the strength of hit ( 1 - 4 ), the 
weapon’s attack value ( 1 - 3 ), its defence value if it is a sword, 
armour and shields, if any, together with a random attack 
value. When all these are added, the hit is judged successful 
or unsuccessful. 

1330-1340 If your current strength is larger than your 
maximum strength, then let current strength = maximum 
strength. 

1400-1430 If knights are a distance apart, then they can 
gradually recover to their current maximum strength. 

4000-4010 You die. 

4500-4510 Enemy dies. 

7000-7280 Start of game. You choose your weapons and 
armour, from list giving prices. Note improper entries 
ignored. 

7320-7460 Enemy chooses weapons. Either enemy chooses to 
have a strong attack or a strong defence. 

8000-8500 DRAW castle in background and start fight. 

9000-9130 DATA for user-defined graphics used for knights, 
horses and weapons. 
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Listing 

X REM Kniqht Fight 
2 REM ® S.Robert speel 1962 

10 PAPER 4-: BORDER 4-: CL5 : GO 
SUB 7000 

100 INK ec. IF eh =1 THEN PRINT 

RT y-1,x-1;"_US " 

110 PRINT RT y , X; "RBC ** : IF X/2 
=INT (X/2i THEN PRINT R7 y+I,X." 
DEF “ 

120 IF X/20INT (X/2) THEN PR IN 
T RT y+l,X,"GHI " 

130 INK at: IF ah=1 THEN PRINT 
RT u-1,29-X;" TU_" 

14-0 PRINT RT y .28-x; " LKJ" : IF 
X/2=INT (X/2) THEN PRINT RT y+1, 
28-x;" ONM" 

150 IF X/20INT (X/2) THEN PRIN 
T RT y+1,28-x;" ROP" 

180 LET X =X —1; BEEP .003,10: PR 
USE 2: BEEP .003,5: PRUSE 3: BEE 
P .003,0: PRUSE 5 
170 IF X=16 RND e C =7 THEN GO TO 
200 

1S0 IF X<2 THEN GO TO 800 
190 GO TO 100 

200 let ad = le +1NT (RND*6)-ar-(a 
r=2)-INT (RNDiB): LET ed=la+INT 
(RNDS4.) -ef-(ef=2) -INT CRND+4-1 
210 IF ad < =0 RND e d < =0 THEN GO 
TO 100 

22© IF ad >0 RND ed>0 THEN GO TO 
500+100*(3d >ed3 

230 IF ad>0 THEN GO TO 600 
24-0 GO TO 500 
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500 PRINT RT y-l,X-*; " TA" : BE 
EP .1,50: BEEP .1,30 
510 PRINT RT y-l,X-4-;" BEEP 

.1.20: BEEP .1,10 

520 RESTORE 9100: FOR f=0 TO 1: 
FOR g=0 TO 7: RERD a: POKE USR 
CHR $ 163+q .a: NEXT g: PRINT RT y 
+l,X-6+f;CHR$ 163;. NEXT f 

530 PRINT ”; RT y,x+3;" 

RT y,28-x;" " 

54-0 LET X=X-1: LET ex=X+9: LET 
y=y-l: LET 3h =0: LET era =6 m-INT ( 
RNDf6)-1: LET se=se-6: GO TO 10© 


600 PRINT RT y-1 ,x; "AS" : BEEP 
.1,50: BEEP .1,30 
610 PRINT RT y — 1 , X ; ** B 

EEP .1,50: BEEP .1,30 
620 INK 7: RESTORE 9100: FOR f = 
0 TO 1: FOR Q=0 TO 7: RERD a: PO 
KE USR CHR$ 162+g,a: NEXT g: PRI 
NT RT y + l,X+4- + f; CHR$ 162;: NEXT 

630 PRINT RT y+l,x-4-;” 

;RT y,x +3;” ";RT y,2S-x;'\ 

64-0 LET X=X-1: LET eX=X+9: LET 
>_! =u — 1: LET eh=0: LET am=a»-INT ( 
RNDf4-) : LET sa=sa-5: GO TO 100 


800 IF eh =1 RND ah=l THEN GO TO 
900 

810 LET X=20: LET ex=10: LET y= 
y +1 

820 IF eh=l THEN LET X=5 
830 IF ah =1 THEN LET e.X =25 
84-0 GO TO 1000 

900 PRINT RT y-1,X; " ”;RT y — 

l , 28-x;" 

91© LET X =26: LET y=l©: LET dC = 

ac. -: LET a C =e C : LET ec=dC: GO TO 
100 

1000 PRINT RT y -1 , ©; ■■ ",TAB 31;*' 
INK 7;RT y,0;” LKJ"; INK 0;T 
RB 28;" ABC"; INK 7;RT y+l,©;" O 
NM”; INK ©;RT y+l,28;" GHI” 

1010 FOR f=l TO 2: PRINT RT y-f, 
0;" ";RT y-f,27;" ": NEXT 

f 

1020 RESTORE 9060: FOR f=l TO 2: 

FOR g =0 TO 7: READ a. POKE USR 
CHR$ (14.3 + f) +g ,a : NEXT g : NEXT f 
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1030 RESTORE 9100: FOR f =3 TO IS 
: FOR- g=© TO 7 : RERD 3: POKE U5P 
CHR$ f 14-3+ f 3 + g , a : NEXT g : NEXT 

104-0 PRINT RT y +1 , S; " 


1100 PRINT INK 0;RT y.ex;v$;"R " 
; RT y +1, ex ; " E " ; lNK'?;f)T y,x-l 
; " B”.;&?£;RT y+l.x-I;" F " 

1110 IF fiX>X+2 THEN PRINT RT y,e 

V _1 • 11 ** - p-r ,, v- j.-'a ■ ” ■ ' 

1120 LET X =X +(INKE/$ = "B"3 -(INKEY 
$ = "5" 3 +(X <53 - (x >253 : LET X=X-tX> 
ex -23 


113© LET ex=ex+SGN (- (SX >X tl RND 
RND 1 '. 53 -f- (ex <53 - (ex >253 + (RND < . 33 
F(Se<3 RND ex<253 3 : IF ex -X >2 TH 
EN GO TO 14-00 


1200 LET 3$=INKEY$: IF 3$ < "1" OR 
3$>" 4.” THEN LET a$="0“ 

1210 LET 6I=IMT (RND*43 +1: IF se 
<62 THEN LET ez=se-l 
1220 IF S6<3 THEN LET e2=0 
1230 IF a$ = *‘0" THEN GO TO 130© 
124.0 LET S3=S3-URL 3$: IF S3<1 T 
HEN GO TO 4-000 

1250 IF URL a$f«a+(RNDi?)+l>ez+e 
s+er-I-j- (we =13 THEN LET ea =e,u -1 
1250 IF ££•:! THEN GO TO 4-50© 


1300 BEEP .03,4-5: LET se=S6-ez 
1310 IF CZ+we+INT CRNO*3)>URL a$ 
+sh+ar + t«a=l) THEN LET am=ani-l 
1320 IF am < 1 THEN GO TO 4-000 
133© IF sa>aro THEN LET sa=ast 
134.0 IF se >em THEN LET se=e» 


14.00 PRINT -RT 20.0; sa:” " ; RT 
20 ; se; - ' **.- if ex -x < 3 then'go 
110 © 

14-10 FOR f=l TO 2: IF sa<am 
LET sa=sa+l: NEXT f 
14-20 IF se <e» THEN LET se=se 
14-30 GO TO 110© 


2 © , 
TO 

THEN 
+ 1 


4-000 PRINT INK ©;RT y , x; **:v$ 

3”R ", INK 7;fiT y+I,x;" CD"; INK 
0; E 

4-01© PRINT RT 20,0; "You die."- 5 
TOP 


4.500 PRINT INK 7 ; RT U , X; " B“;U$ 

** " ; RT y +1,x; “ F INK ©.: "CD 
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4.510 PRINT RT 20,20;"HS dies.’*: 
STOP 

7000 PRINT "Knight Fight"'' 

70S© RfiNDOHIZE ; LET 3h=l: LET e 
h =1: LET X =25: LET y=l© 

7060 LET cash =100: LET Sh=©: LET 
a C =0 : LET e C =7 

7100 print '"(1) Chain-mai l cost 
s 4.0 coins,.(2) plate-mail 50. 

7110 PRINT '"<11 Light lances c 

ost 10.<21 medium lances 20"'" 

<31 heavy lances 30." 

7120 PRINT '"<11 Swords cost 20" 

'"<21 axes 20.<31 maces 30.“'" 

Shields 20." 

7130 FOR f=l TO 21: FOR g=0 TO 7 
: RERD a: POKE USR CHR$ <f+14-31 + 
Q,a: NEXT g: NEXT f 

7200 PRINT RT 21,0; "Ulhat armour 
do you buy?": LET a $ = INKEY $: IF 
3$<"1“ OR a$>"2" THEN GO TO 7200 
7210 BEEP .5,0: LET ar=URL a*: L 
ET cash=cash-30-10+ar 
7220 PRINT RT 21,8;"What lance d 
o uou buy? ": LET a$=INKEY$: IF 
a$<"l" OR a $ >"3" THEN GO TO 7220 
7230 BEEP .5,0. LET la=URL a*: L 
ET cash=cash-10+la 

724.0 PRINT RT 21,0; "What Other U> 
eapon do you buy?": LET a$=INKEY 
$: IF a$<"l" OR a$>”3“ THEN GO T 
O 724-0 

7250 BEEP .5.0: LET wa=URL a $: L 
ET W$=CHR$ <i52+wa): IF C3Sh-20- 
10+ <wa =31 <0 THEN GO TO 724-0 
726© LET cash=cash-10-10+<wa=31: 

IF cash<20 THEN GO TO 730© 

7270 PRINT RT 21,0,"Do you buy a 
shield? (y/nl ": LET a $ = INKEY $ 
: IF a $ < >"y" RND a$<>"n" THEN GO 
TO 7270 

72S0 BEEP .5,0. LET C3Sh=CaSh-2© 
+ <a$ = "y"1 . LET sh = (a$="y"I 

7320 LET sa =25: LET se=20: LET a 
?s> =25 : LET e fft =20 

7360 CLS : PRINT ""YOUf OPPOnen 
t chooses ' 

7370 GO TO 74.00+INT <RND+21 +50 
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74-00 PRINT "Defence: Medium armo 
ur..RttacK: Heavy lance and a 

I'Cn 3 Cfi a " 

74-10 LET er=2: LET es=0 : LET we = 
3: LET le=3: LET V$="J": GO TO 8 
00 © 


74.50 PRINT "Defence: Heavy armou 

r and shield. RttacK: Medium L 

ance and sword." 

74-60 LET er=2: LET es=l: LET we = 
1: LET le=2: LET V$="G" 

8000 PRINT ''"(Press ENTER to St 
art)": PROSE 0: CLS 

8010 PLOT ©..120: DRflU 250.0: PLO 
T 0.120: DRRU ©.30: GO SUB 6500 
S026 DRRU ©,-20: GO SUB 6500: DR 
RU 0.30: GO SUB 8500 

8030 DRRU 0.-10: GO SUB 8500: DR 
RU 0,10: GO SUB 8500 

8040 DRRU 0,-30: GO SUB 8500. DR 
RU 0,20: GO SUB S5S0: DRRU 0 , -30 
8050 PLOT 115,120: DRRU 0,10: DR 
RU 20,0,-PI: DRRU 0,-10 
8060 FOR f =15 TO 230 STEP 70: PL 
OT f,130: DRRU 5,0: DRRU 0,7. DR 
RU -5,0,PI: DRRU 0,-7: NEXT f: G 
O TO 9000 


8500 FOR f=l TO 3: DRRU 0,5: DRR 

U 5,0: DRRU 0,-5: DRRU 5.0: NEXT 
f: DRflU 0,5: DRflU 5,0: DRRU 0,- 

5: RETURN 


9000 DflTR 1,10,15,23.31,59,51,33 
,236,61,191,255,255,255,255.255, 
0,128,224- , 24-0,248,244,243,224 
9010 DflTR 3,6,8,8,4,3,0,0,255,22 
7,128,0,©,0,0,0,192,192,112,56,S 
,4,2,6 

9020 DRTR 1,1,0,1,3,2,6,0,254,24 
8,192,128,1,2,2,0,224,192,64,128 
, 0 , 0 , 0,0 

9030 DRTR 128,80.240,232.246,220 
,204,132,55,188,253,255,255,255, 
255 255 

9040 DRTR 0.1,7,15,31,47,207,7,1 
28,128,0,128,192,64.96.0.127.31. 
3,1,128,64,64,0,7,3,2,1,0,8,0,0 
9050 DRTR 192,96,16,16,32,192,0, 
© ' 193 ' 1 '© ' © ' © ' © * © , 3.3,14- , 28 , 

16,o 2 ,64,96 
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9060 Di=rm 12© , 24-8 , 112,56 .. 4-© , 24-6 , 
214,116,30,31,14- , 28,20, 111, 107,4- 
8,0,0,0,0,0,0,255,255 


910© DfiTfi 0,0,32,63,0,71,120,0,3 

,4,9,251,255,24-8 , S , 24-0 

9110 DRTf) 50,60,60,60,54,34,34,1 

02,60,60,60,60,10B ,63,68,54- 

9120 DfiTft 0,64-, 32,16,10,4-, 10,3,0 

,0,48,112,72,8,4,3,16,24,60,24,1 


5,8,4-,3 

9130 DRTR 0,2,4,8,80,32,80,192,0 
,8,12,14-,18,16,32,192,8,24- , 60,2-4 
,16,32,64-, 192 
914-0 RETURN 
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Space Raider 


To play 

In this Spectrum game you control a small spaceship using the 
5,6,7 and 8 keys. You are under continuous attack from enemy 
spaceships which, true to the galactic code of honour, attack 
one at a time. 

Your objective is to get as high a score as you can before 
getting destroyed. 

You fire by pressing the space key. Your range of fire 
includes the 4 character squares directly in front of your ship. 
Enemy ships destroy you by landing on top of your ship. There 
are three types of enemy, shown below. 


Enemy Globeship 
10 Poirts 


FticKership 
20 Points 


Re flectorship 
25 Points 
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V'c* u r spacecraft 


■* 

The globeships are the easiest to kill. These are bright green 
and are worth 10 points each. They sometimes simply abandon 
ship, leaving an empty, unmoving hulk - you don’t get points 
for destroying the hulk. 

The flickerships are much more difficult to destroy, and are 
worth 20 points each. They constantly change colour, and may 
be dark and difficult to see, or even temporarily invisible! 

The reflectorships are worst of all. To confuse its prey, a 
reflectorship can produce an image of itself attacking from the 
opposite direction. You are thus confused by two ships, one 
real and one fake. Reflectorships are white, and worth 25 points 
each. 
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You may initially find it difficult to score at all and you can 
increase your chances at first by just fighting the green globe- 
ships. You do this by changing line 330, which chooses one of 
the three types of enemy. Just change (RND * 3) to (RND * 1). 

When you have gained experience in manoeuvring and 
accurate firing, go back to (RND* 3). 

A highscore feature is included. 

Notes on listing 

10 rs is the current highscore. 

20-30 The setting is a black area of space dotted with stars. 
50-60 nm is set to 1 if there is an enemy on screen. 

ax gives the ship direction, sc is the score, q and r are the 
co-ords of the enemy ship. 

100 This gives the user-defined characters for your spaceship 
pointing in four directions, a missile and an explosion. 

110 x and y are co-ords of your ship. 

200 Print your ship pointing in right direction. 

210 If enemy on screen goto correct enemy routine. 

220 If no enemy, 10 per cent chance one will appear, otherwise 
goto your move. 

300-350 Select enemy and put him at edge of screen at 
random, sea is the score for killing that enemy, and fgt the 
line number of the enemy move and attack routine. 

360 GOSUB enemy move and attack routine. 

400-470 You press button. If you move, goto 500, if you fire 
then print missile, make firing sound, move missile and see 
if enemy hit. If he is, goto 2000. Otherwise go back to 210 
and repeat loop. 

500 You move. XI and Y1 give direction of movement. Check 
if enemy on top of new position, and destroys you at line 
1000. Set ax to direction of spaceship. 

600 Print red spaceship at new position and redo main loop. 
1000 You are destroyed. Warning beep given. 

1010-1080 Score given, highscore shown and new game 
offered. Note that if refused, ink, paper and border are reset 
to normal colours. 

2000 Enemy killed. Print exploding enemy ship, give short 
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triumphant trill, and increment score. Set nm to 0 (no enemy 
on screen) and enemy co-ords at 0. 

3000-3050 Globeship. 3010 gives the move for all ships. A 
function could have been defined to do this but was found 
to be slower. Random factor in movement gives unpredict¬ 
able jumping of enemy ship and makes prediction of enemy’s 
next position difficult. 

3020 Draw green globeship. 

3030 If ship gets you, goto 1000. 

3040 5 per cent chance they abandon ship, leaving hulk. 
3100-3140 Flickership. 3120 gives random colour including 
black-invisible. 

3200-3250 Reflectorship. 

3220-30 Print white ship and image moving from opposite 
side of screen. If you are near a corner of the screen the image 
will move away from you, but if you are near the centre of 
the screen, you will be confused, often, for the vital seconds 
until the real ship attacks ... 

8000-8080 DAT A for user-defined graphics. 

8000-8030 Your ship, pointing in all four compass 
directions. 

8040 Missile. 

8050 Explosion. 

8060-8080 Enemy ships. These also contain points for 
destroying that ship and line number where that ship starts 
its attack routine. 

Listing 

x rem space Raider 

10 LET cs=©-. RANDOM IZE 

a© BRIGHT 1: PRPER ©.- BORDER © 

INK 6; C!_S 

3© FOR f=l TO 100; PLOT RND*2S 
0..RND-K15©: NEXT f 

^4.0 RESTORE ; PRINT RT 0,0; "SCO 

50 LET NM=0: LET ax~5, LET st = 

5© LET q=0: LET r =0 
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10® FOR f=l TO 6: FOR g =0 TO 7; 
RERD a: POKE USR CHR$ fl43 + /:»*g 
,a: NEXT g: NEXT f 
110 LET X—10: LET y = 10 

200 INK 2: PRINT RT y,x;CHR* (1 
39 + 3 X) 

2is'IF n rn THEN GO TO 360 
22® IF RND <. 9 THEN GO TO 4-0® 

300 LET n« = l: LET q.= l 
310 IF RND <.5 THEN LET q=30 
320 LET r =INT (RND*201 
330 LET ns =XNT CRND*31*1©: REST 
ORE 8060+ns 

34.0 FOR f =0 TO 7: RERD a: POKE 
USR CHR* 150 + f j a : NEXT f 
350 READ SC3: RERD f 9t 


36® GO SUB fgt 

400 LET iX=CODE INKEY*: IF iX>S 
2 RND iX <57 THEN GO TO 500 
410 IF iX < >32 THEN GO TO 210 
420 LET bX■ fax=8 ) - (ax=5) : LET b 
y=(ax=6)-(ax=71 , 

430 INK 6: FOR f=1 TO 5: LET ZX 
=x+f*SGN bX. LET zy=y+f*SGN by 
440 IF ZX <i OR ZX >30 OR zy < 1 OR 
zy >20 THEN GO TO 210 R . qt 

450 PRINT RT Zy , ZX .CHR$ ^ S -rHF»sl 
ZU i 2X i " **• IF ZX fiND Z y — f THEN 

460 BEEP^?01.. 1: BEEP -01.10: NE 
XT f 

470 GO TO 210 
50® LET ax=ix-48 

510 LET xl=(ax=8) - iax=5) +u <1) -• 
i x > 30) 2 . L ET 9 1 = f -3 x =*=■ •' ~ iaxsi’1 + > y ' 

520 ” LET x =x + X 1 : LtT y -r 

530 IF SCREEN* <y,X>=CHR$ 150 T 
HEN GO TO 1000 


600 INK 2 : PR INT RT y — y ■»» > A A a. » 
; RT y,x;CHR* (139+ax) 

510 GO TO 210 


1000 FOR f=l TO 30: BEEP .05,20: 

BEEP *05,4: NEXT f 
1010 INK 7: PRINT RT 5,2; "Your f 
i na score is *‘;sc 
1020 IF sors THEN LET C£=£C 
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1030 PRINT : PRINT 

104-0 PR INT : PRINT 

~> " 

1050 IF INKEY $ = "y" 
1060 IF INKEY$="n" 


"Best so far 

'“another game 

THEN GO TO £0 
THEN GO TO 10 


1070 GO TO 1O50 

1060 INK 0: PAPER 7: BORDER 7: S 


TOP 


3000 FOR f=l TO 
; CHRJ 14- S: BEEP 
r'q;" “. BEEP . 

2010 rOR f=l TO 


10 : 

• 2 .< c 
1 - -4- : 
50 : 


PRINT RT f,q 
O. PRINT AT 

NEXT f 

SEEP . 05 , C50 — 


f NEXT f 

2020 LET nm=0: LET sc=sctsca 
2030 INK 7: PRINT RT 0,0;"score* 


";st 

2040 LET r =0: LET q=0 
2050 LtT x1=0: LET yl=0. 


GO TO 5 


■70 

3000 PRINT RT r , q; " ’* 

3010 LET q=q+iq<X)-(q 
D *3 -1) : LET r=r+ (r<yi 
(RND*3-1) 

3020 INK 4-: PRINT RT 


>x )+INT iRN 
-if>y)+INT 

r,q;CHR* 15 


3030 IF q=X AND r= y THEN GO TO 1 
000 _ 
304.0 IF RND < . 05 THEN LET nm =0 
3050 RETURN 
BIOS PRINT RT r , q; ’’ ” 

3110 LET q =q +(q <X) - (q > xi +INT (RN 
D *3 -1) : LET r = r + ( r < y ) - ( r > y) + INT 
(PND *3 — 1) 

3120 INK RND*7: PRINT RT r,q;CMR 
i 150 , 

3130 IF q=X RND r =y THclI GO TO I 
000 

3140 RETURN 


3200 PRINT RT r,q,", hT 2G-r,30 

3210 LET q =q + (q <X) - (q>X) ♦- INT (RN 
D*3 — 1): LET r=r + (r<y> - ( r> u ) +INT 
CPND 1) 

3220 INK'7: PRINT RT r,q;CHRJ 15 
0 

3230 PRINT RT 20-r.30-q;CBR$ ISO 
3240 IF q=x RND r =y THEN GO TO 1 

3550 RETURN 



114 SPACE RAIDER 

60S© DRTA 14- , 60 , 121 , 355 , 121 ,6 © , 3 . 
4,0 

68i© DATA 56.146,214- ,254- , 124. , 1S4- 

j 66,16 

6020 DATA 16,56,124-, 124,254- , £14- , 
14.6,66 

883© DRTA 112,60,158,255,158,60, 

112,0 

884-0 DATA 0,8, S # 56,£6,e, 8,8 
6850 DATA 65,8,0,14-6,8,65,4., © 
8860 DATA 24. , 60,102 >219,219>182 > 
60,24-, 10,3000 

6070 DATA 124., 17,153,191,253,153 
,136,62,20,3100 

8080 DATA 0,129.129,189,255,189, 
129.129,25,3200 



Probability Check 


To use 

This Spectrum program simulates a ball dropping on to a 
triangle of pegs. On hitting a peg, the ball bounces right or left 
at random, before falling to the next layer. This is repeated 
until the balls are counted at the bottom of the screen. 

This gives an idea of how accurate probability theory is for 
small numbers of events. You have control over two factors: the 
number of runs (events) and the number of choices of routes. 
The number of routes must be between 2 and 8, but there is 
no maximum limit to the number of runs. 

For example, when tossing three coins, there are four 
possible results: 3 heads, 3 tails, 2 heads and 1 tail, or 2 tails 
and 1 head. However, there is only one way of getting 3 heads 
or 3 tails, but three ways each of getting 2 heads and 1 tail or 
2 tails and 1 head. Thus in 200 throws, you would expect to get 
3/8x200 = 75 results of 2 heads +1 tail, and 1/8x200 = 25 re¬ 
sults of three heads. We can simulate this in the program. Enter 
200 for ‘number of runs’ and 4 for number of choices. See how 
far your results agree with the predicted ones, the choices being 
right and left instead of heads and tails. 

Notes on listing 

120 NU is number of events. Note this is corrected to a positive 
integer if necessary. 

140 NC = number of choices, corrected to between 2 and 8. 

150 The final ‘field’ is yellow, with a green border, blue ‘pegs’ 
and a red ‘ball’. 

200-240 Print triangle of pegs, with straight channel after 
bottom layer, one for each choice. 

300-360 Each ball starts at print position 1,16. 
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Size of sample= 10 © 

Ch o i c e s- =3 

. run no ,100 


32 4-3 25 


Size of sample=100© 
Choices =8 


run no 


201 


2 10 28 52 58 29 13 1 


340 checks if peg underneath ball, 

350 if ball has finished falling. 

400-410 Ball bounces randomly left or right on hitting peg. 
500-520 Print number of balls in channel so far. Note that this 
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is done by checking the X co-ordinate of the ball when it 
lands. 

Repeat for NU runs. 

Listing 


1 

REM P 

r o ba b i t i t y 

check 


o 

REM f 

'§> S.RObSf t 

5P t‘£‘ l 


100 

PRINT 

"Pro babi i i 

t y c h e c K " 


1 1© 

PRINT 

: PRINT ”B 

© fe* a f> y r 

un 

120 

INPUT 

nu: LET nu 

=INT RES 

n u 

130 

PRINT 

"ho w many 

ChoiCfiS? 

i 

TO 

Ri " 




14© 

INPUT 

no: LET no 

=INT RB5 

n c 


: LET nc=nc+(nc<a)f 12 -nc)-tnc> 8 ) 
$ s'n c -8) 

15© PfiPER 6 : BORDER 4 : CL5 
15 © print ’Size of saisp te = **; nu : 
PRINT "Choices=";r;c.;fiT 2,2©;"ru 
n no . " 

2 ©© INK 1 : FOR f=l TO nc-i: FOR 

Q=-f TO F —2 STEP 2 

210 PRINT RT f *- 2 , 18 + 9 *- 2 ; ” . " 

22 © NEXT P: NEXT f 

23 © PRINT : FOR f =n C *2 TO IB: F 
OR q--r.c-i TO no STEP 2 
24-0 PRINT TRB IS -PR *2 - t g = 7 ) ; " . " J 
: NEXT g: NEXT f 
25 © DIM a(S) 

3©0 INK 2 : FOR f =1 TO nu 
31 © LET x= 16 : LET y=l 
32 © PRINT RT 2 , 27 ; f 
33 © PRINT RT y,X;"O" 

340 IF SCREEN* iy+I,Xl:"," THEN 
GO TO 4©0 

35 © IF M>is THEN GO TO 50 © 

360 LET y=y+ 2 : PRINT RT y -1 ,X;" 
": GO TO 33 © 

400 PRINT RT y , x ; ** " 

41 © LET X=XtINT (RNPt 3 -l)f 2 : GO 
TO 32 © 

500 PRINT RT y,x;" LET Ch=(l 

+ X ? X 4 

510 LET a (ch) = 3 (ch) +1 

520 PRINT RT 2 ©.X ;3 CCh> : NEXT f 





Wave Addition 


This is a short Spectrum program designed to show con¬ 
structive and destructive interference between waves. It uses 
polychrome high-resolution graphics very effectively. 

To use 

When RUNning the program, all you decide is the phase 
change between the two waves; that is, how far apart the peaks 
will be. If the waves are on top of each other, then they are in 
phase. If the peaks are separate, the waves are out of phase. 

After you enter the phase change, the computer PLOTs a 
graph showing the two waves, and their sum. If the sum is far 
from the horizontal axis, there is constructive interference. 
When the sum is near or on the horizontal axis, the waves cancel 
each other out - this is destructive interference. 

The maximum sum of the waves is also given. 

Note that if waves are completely out of phase, dotted line lies 
on horizontal axis. 


Notes on listing 

10 Graphic A is used for the PI symbol. 

20 INPUT distance between peaks of the two waves. 
40 DRAW horizontal lines and axis. 

50 DRAW vertical axis. 

60 Scale on vertical axis. 

70 PRINT phase change. 

80 Horizontal scale using graphic A. 

90 X4 used to calculate maximum sum of waves. 
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WAVE ADDITION 


£.6 radian phase change. 
Max. total=0.535 



Waves almost completely out of phase 


100-160 PLOT 3 waves. 2 waves in red and blue, sum in 
black. XI and X2 are points on 2 waves, X3 is point on sum 
of waves. 

150 Every tenth wave goto PLOT heavy dot routine. 

170 Calculate maximum point of wave using X4. 

200-220 PLOT heavy dot routine. 

8000 DAT A for Greek letter PI. 


Listing 

1 REM Wave Rdditinn 

10 FOR f =0 TO 7: READ 3: POKE 
USR “fl"+f,a: NEXT f 

20 PRINT "input phase change": 
INPUT P$: LET ph=UPL P$ 

30 INK 0: PAPER 6: BORDER 3: C 
LS 

4-0 FOR f =0 TO 4.: PLOT I, 20+30* 
f : DRAW 250,0: NEXT F 
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50 PLOT 20, iU; DPfiW 0,150 
60 PRINT PT 4- , 0 ; " 2 ; PT 7,0; "1" 

PT 11,0; "0“ ; AT 15,8; IS, 

© ; •• -a” 

70 PRINT PT 0,3;p$;" radian ph 
asa change . " 

■30 PRINT PT 21,1, "0 R 

2R 3P 4P 5fl” 

90 LET X 4. =0 


1O0 FOR f~l TO PI*75 
110 LET X 1 =80 +SIN if/'15.1*30 
120 LET x2=30+SIN ( f 15 +ph ) *30 

130 LET X3=X2+X 1-S0 . XF x3>x4- T 
HEN LET x4=x3 

140: INK 1: PLOT f+20,xl: INK 2 

PLOT f+20,x2: INK 0. PLOT f+20 
x 3 

" iso IF f/10 = INT lT/10) THEN GO 
TO 200 

180 NEXT f 


170 PRINT PT 1,2, "Max . totaU"; 
INT ( (X4-80) 73*100+.5 ) /1000 


200 FOR g=-l TO 1: FOR h=-l TO 

1 

210 PLOT f+28++g,x3+h: NEXT h: 
NEXT g 

220 GO TO 160 


■3000 DATA 0,0,2,124,40,40,40,0 



Converting ZX81 Programs 
for Use on the Spectrum 


Although ZX81 BASIC is essentially a sub-set of ZX Spectrum 
BASIC, there are several significant alterations which have to 
be made when converting ZX81 programs for use on the 
Spectrum. 

For our purposes we can divide programs into three 
categories: 

(a) Programs consisting mainly of words or calculations. The 
mathematics, PRINTing and string commands have 
altered little, and many Adventure-type games, mini word 
processor, mathematical and quiz-type programs can be 
virtually copied from the ZX81 fisting with only a few 
modifications. (These types are also easy to convert from 
Spectrum to ZX81, bearing in mind memory limitations.) 

(b) Programs which are mainly words or calculations but with 
supporting diagrams. This includes many scientific and 
maths programs where a picture helps to explain the 
calculations, as well as a lot of educational programs using 
a ‘reward’ (such as a drawing of a pattern or animated 
picture if you successfully complete a test). Here there is 
some difficulty in conversions, and often it is simpler to 
devise a new routine on the Spectrum to replace the old 
graphic routine. 

(c) Programs highly dependent on moving graphics or pic¬ 
tures. This covers a whole range of games as well as serious 
programs to do with map-making, drawing, planning, 
designing and some maths programs. To convert these, 
you usually need a very clear idea of exactly what the 
program does and what it shows on the screen. 

Here is a list of conversions which you may need to make 
when translating to Spectrum BASIC. 
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PAUSE 

To pause until a button is pressed on the ZX81, PAUSE 40000 
(or any number larger than 32768) is used. This should be 
changed to PAUSE 0 on the Spectrum. The screen gives a 
flicker when PAUSE is used on the ZX81, and often PAUSE 
is avoided and an empty FOR-NEXT loop used instead. This 
may sometimes be replaced by PAUSE on the Spectrum. 

SLOW and FAST 

The ZX Spectrum operates at the speed of the ZX81 in FAST 
mode with the steady display of SLOW mode. For games using 
animated graphics, you may need to slow down the program on 
the Spectrum. Do not use PAUSE, because this will not work 
when a key is pressed; use instead an empty FOR-NEXT loop, 
e.g., 

FOR F = 1 TO 20: NEXT F 

You could also slow down by adding BEEP statements, giving 
you sound as a bonus. 

SCROLL 

The Spectrum scrolls automatically, which is all very well, but 
the SCROLL key command has been omitted. This is a nui¬ 
sance in games which rely on scrolling when the screen is not 
full, such as Alien Descender and Asteroid Belt. Also in word- 
based games, if the word ‘scroll?’ appears at the bottom of the 
screen, an inexperienced user might press the largest key in 
sight - the space key - which will BREAK the program. 

Fortunately, there is a POKE we can do which allows for 
scrolling without the ‘scroll?’ at the bottom of the screen. Then 
we need to PRINT too much on screen, so that we force the 
scroll. Therefore replace each SCROLL in a ZX81 program 
with 


POKE 23692,255: PRINT AT 21,0: PRINT 
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PEEKmg and POKEmg on screen 

In many ZX81 programs you will see commands such as 

PRINT AT Y,X; 

LET A$ = CHR$ PEEK (PEEK 16398+256*PEEK 
16399), 

Addresses 16398 and 16399 hold the address of the screen 
position last PRINTed at, so PEEKing this value gives the code 
of the character at that point (in this example, position Y,X). 
Conversely, POKE (PEEK 16398+256*PEEK 16399), n 
POKEs the character with code n into the screen. 

On the Spectrum, the PEEK can be replaced with 

LET A$ = SCREENS (Y,X) 

which gives the character at Y,X, or 

LET A = ATTR(Y,X) 

which gives the ATTRibutes of the character - colours, bright¬ 
ness and whether it is flashing. To replace the POKE is 
awkward, as the characters on screen are stored in an odd way 
in the Spectrum. You will have to use PRINT AT instead of 
a POKE command. 

Timing 

On the ZX81 timing routines may be made by altering a 
variable every time a loop is executed. This may be slowed to 
a convenient value (e.g., one loop per second) with a PAUSE, 
or a dummy command such as LET A = RND. Alternatively, 
a systems variable called FRAMES (PEEK 16436+256* 
PEEK 16437) may be PEEKed at intervals. This is used with 
PAUSE, and can accurately keep time for up to about eleven 
minutes before needing to be reset. 

On the Spectrum, these timing devices can be replaced by 
the Spectrum FRAMES, which, as it is a 3-byte counter 
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(PEEK 23672+256*PEEK 23673+65536*PEEK 23674), 
will give the time in fiftieths of a second for nearly four days 
before running down. Remember to POKE these values to zero 
when starting the timer. Also, PEEK these values twice and 
take the larger value to get the time (see manual for reasons). 

Multi-line statements 

It is a good idea to ‘compact’ ZX81 programs by putting several 
variables in one multi-line statement rather than using one 
variable per program line. Small FOR-NEXT loops, dimen¬ 
sioned strings and other routines can be conveniently reduced 
to fewer lines. 

PLOT and UNPLOT 

On the ZX81, PLOT uses pixels which are one quarter of the 
size of a character square. This gives 44 rows and 64 columns 
of PLOT co-ordinates. On the Spectrum, the PLOT command 
uses high-resolution - 256 points by 176. This means that fine 
lines, circles and pictures can be made which are impossible on 
the ZX81. Problems arise when converting the large ZX81 
plotted pixels to the finer Spectrum points. 

If the ZX81 is using a routine to draw lines or pictures, you 
may be able to replace these with the DRAW and CIRCLE 
commands. Where the ZX81 PLOTs a more solid shape, the 
Spectrum would give an outline only. Try replacing the ZX81 
routine with a PRINT AT routine. 

By using PLOT OVER 1, unplot can be achieved on the 
Spectrum. 

Memory 

The Spectrum has colour and high-resolution graphics. This 
means that on a 16K machine nearly 7K is reserved for the 
screen, and you can only use 9K. So a 16K ZX81 program may 
be difficult to fit on to a 16K Spectrum. To cut down a ZX81 
program, use multi-line statements. Also, look out for common 
routines which could be replaced by user-defined functions, 
and IF - THEN routines which you can compact, e.g., 
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100 IF A$ = “YES” THEN GOSUB 700 


700 PRINT ‘YOUR SCORE IS O’ 

710 LET K= 14 
720 LETY = Y-l 
730 RETURN 

can, on the Spectrum, be compacted to 

100 IF a$ = ‘yes’ THEN PRINT ‘Your score is O’: LET K 
= 14: LET y = y—1 

Adding sound, colour and user-defined graphics 
Naturally you will want to make full use of your ZX Spectrum’s 
superior features. However, don’t add sound, colour and 
UDGs until you have the converted program working. If you 
add as you convert, there is a greater chance that the program 
will end up tortuous and convoluted. 




Patterns 


With some quite short programs the ZX81 can draw very in¬ 
teresting patterns. Not only do they look good at any stage, as 
on a print-out, but also they are interesting to watch. The 
pattern is endlessly changing, growing and reforming. 

These patterns are fascinating to look at, but they have other 
uses too. For instance, they can be incorporated into other 
programs as rewards. When you complete a Fairway round in 
ten shots, instead of just a message such as YOUR TOTAL 
NUMBER OF SHOTS WAS 10, a pattern would appear to 
reward you. This greatly enhances many games and serious 
programs too. 

This sort of program often appeals greatly to people who are 
not generally interested in computers. The pattern programs 
show off the ZX81’s graphic capabilities to a great extent and 
may help to condition a non-computer-loving family to the; fact 
that you must have a printer, more cassettes, etc. 


Pattern 1 - Diagonals 

Listing occupies 0.4K 
Program runs in 1.3K 

This program draws a continuously changing pattern by mov¬ 
ing a ball around the screen which leaves a trail of graphic 
characters. Every now and then the graphic character changes, 
and a pattern builds up. Only graphic characters between codes 
128 and 138 are used. 
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Notes on listing 

50-110 X+Y are co-ords of ball. 

A$ is the character to be printed when ball moves. Xl+Yl 
are the speeds north and east. (When negative they are south 
and west.) Note that the ball can start in any diagonal 




PATTERNS 


129 


direction but cannot go straight north, south, east or west 
since this would result in a continual bouncing off in one line. 

500 Print ball, so that you know what the pattern is doing at 
present. This line can be removed if you dislike the ball. 

510-520 If ball ‘hits’ side of screen, make it bounce. Note that 
a border of one square is left all around. 

600-610 Change X+Y according to X1+Y1. 

620 Print current graphic where ball was. 

630 Change graphic randomly to next graphic. RND <.05 
may seem a very little chance of changing a graphic, but in 
ten moves, the chance of changing at least once is 1 —(0.95) 10 , 
which is 0.4. So the graphics do change quite often. 

640 Repeat loop. 


Listing 

1 REM PATTERNS 1 

2 REM COPYRIGHT 

S.ROBERT SPEEL 1932 
10 RflND 
50 LET X = 10 
60 LET Y = 10 
70 LET A$ = '‘J" 

100 LET XI=1-2*(RND<. S) 

110 LET Yl=l-2*(RND<.5) 

5©0 PRINT AT Y,Xj"O" 

510 LET X1 =X 1 —2 * (X =30 ) +2 * (X = 1.1 

520 LET Yl=Yl-2*(Y=20)+2*(Y=l) 

S00 LET X=X+X1 

S10 LET Y =Y +Y1 

S20 PR INT AT Y -Y 1 , X -X1; A $ 

530 IF RND<.05 THEN LET fl$=CHR$ 
((CODE A $ +1) -11* (A$ = ’ , S1‘ , .1 ) 

64.0 GOTO 500 


Pattern 2 - Reversal Diagonals 

Listing occupies 0.5 K 
Program runs in 1.5K 


This is a development of Pattern 1. 
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Instead of using just graphics with codes 128-138, it uses other 
graphics, codes 0-10, as well. 

Also, the picture is drawn on a black background rather than 
on the white screen. This looks less effective printed out on 
paper but is very striking on screen. 
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There are many ways in which you can alter this program. If 
you wish a more frequent change of graphics, change the value 
ofRND in line 630 to RND <.l or even larger. You could even 
omit the RND part, so the graphic changes every go. You could 
also change the starting position of the ball, leading to a more 
(or less) symmetrical pattern. The bounce angle could be made 
random, producing a less symmetrical pattern. 

Notes on listing 

The only changes to the listing of Pattern 1 are: 

20-40 Draw a black background. Note that a black border will 
always be left around the pattern. 

80 The pattern starts with a white square as the initial graphic. 
630 The limits on graphics have been changed so that graphics 
0-10 are included. Note that if the line read: 
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630 IF RND <.OS THEN LET fl$=CHR$ 

C <CODE A* + l) +118* (A$ = '*** ,, :i -138* t 
Rt=“I , ‘) ) 

then black and white squares would not be included in the 
possible graphics. 


Listing 


1 REM PATTERNS 2 
10 REM COPYRIGHT 1932 

S,ROBERT SPEEL 
20 FOR F=l_TO__22 i 
30 PRINT 



60 LET 
70 LET 
80 LET 
100 LET 
110 LET 


X = 10 
Y = 10 
A$ = " 

XI = 1 
Y1 = 1 


:«ij> 


500 PRINT AT Y .. X; ”O*' 

510 LET Xl=Xl-2* (X=30) +2* (Xi 
520 LET Yl=Yl-2* t‘Y=20.» +2* VY> 

600 LET XaX+Xl 
810 LET Y=Y+Y1 v . 

620 PRINT AT Y-Yl^X-Xl;A$ 

630 IF RND<.05 TH^N LE^T A$=CHRi 
t (CODE R4 + 1) +117* t A$ = ,,m,, > -139* t 
A$ = "«" ) ) 

64-0 GOTO 500 


Pattern 2A - Diagonal Zig-zag 

One variation of Pattern 2 limits the graphics to just vertical 
straight lines. 

The background here is made up of horizontal straight lines, 
producing a mind-bending pattern such as shown overleaf. 

Notes on listing 

The changes from Pattern 2 are: 

30 Prints horizontal background. 

80 A$ is initially a vertical line. 
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630-640 The only characters used are vertical lines. Note that 
RND in 640 will produce a change less often than in line 630. 
This compensates for the possibility of the graphic changing 
in line 630, and then changing back immediately in line 640. 


Listing 


1 

10 

20 

30 


REM PATTERNS 2R 
REM COPYRIGHT 1952 

S.ROBERT SPEEL 
FOR F*1 TO 22 
PRINT — 


4-0 

60 

70 

©0 

100 

110 

500 

510 

520 

600 

610 

520 

630 

64-0 

650 


NEXT F 
LET X»10 
LET Y»10 
LET R$=" I" 

LET Xi=l 

cP N 5ilL^ ; <xe30>* a . tx 

LET Y1.Y1-2* (Y.20> +2. <Y 
LET XaX+Xl 
LET Y =V +Y1 

PRINT RT Y-Y1.X-X1;RS 
IF RND<.05 THEN LET h$* 
IF RND <.04-4 THEN LET R* 
GOTO 500 


= 1 ) 
si.) 


II ■*« 

- ,! i ■' 
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Pattern 3 - Square Patterns 

This program draws a pattern entirely made up of graphic 
squares. However, due to the continuous forming of new 
squares, the old ones get drawn over or have a part knocked off, 
so that there are usually very few whole squares on the screen. 
The resulting pattern formation is very attractive. 

Occasionally squares may be drawn in white, i.e., that area 
is rubbed out. This stops the screen from becoming too full. 

I have made the squares appear in a square format, which 
leaves the right-hand part of the screen empty. This can be 
changed to give a full screen format. 



Notes on listing 

60 L determines the size of the square. 

70-80 M is the code of a graphics character, code 0-10 or 128— 
138. Change as desired. 

100-110 X-f Y are the co-ords of the centre of the square. By 
altering Y to a larger number and changing line 140 from 
. .. 10+G+Y to, say, 15+G+Y, a full screen format can be 
achieved. 

120-160 Draw square. The +10 in line 140 ensures that the 
computer does not try to print offscreen. 
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170 Redo loop. Note that GOTO 50 would be less random, 
oddly enough. Recursive calls to RAND are not a good idea. 


Listing 

1 REM SQURRE5 PRTTERN 
X© REM COPYRIGHT 1962 

S.ROBERT SPEEL 

3® RRND 

6® LET L = INT t RND *"?) 

79 LET M = INT <RND*11) 

S© IF RND<.5 THEN LET M=M+128 
10© LET X=RND*S-4 
110 LET Y=RND*6-4. 

12© FOR F=-L TO L 
130 FOR G=-L TO L 

14-0 PRINT RT 10+F+X , 10+G+Y; CHR$ 

M 

150 NEXT G 
160 NEXT F 
•iTO GOTO 60 


Note that sometimes the program appears to stop doing 
anything for a few moments. This is when it is printing a 
graphic square on top of a square of the same graphic. 
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Pattern 4 - Buildup-breakup 

This is a more symmetrical pattern than the others. It creates 
a graphic pattern randomly, but each time a graphic character 
is chosen and positioned, three similar characters are placed 
so that the whole pattern is symmetrical, vertically and 
horizontally, about the centre of the screen. 

Two examples of patterns produced by the program as it 
stands are shown, below and overleaf. 



The program can easily be altered to produce other types of pat¬ 
tern by changing A$. 

If there are one or more spaces in A$, the pattern will be 
open, whereas if there are no spaces, the pattern becomes more 
solid. 

Notes on listing 

50 A$ contains the characters to be used in the pattern. It can 
be any length. Try using vertical and horizontal lines only, 
or letters. 










136 


PATTERNS 


100-240 Loop for drawing four copies of each character in A$. 
Note that the loops will occur the number of times you put 
into A$. 

100-120 Position of character, centred about middle of 
screen. 

200-230 Print four identical characters from A$ in square. 
240 Repeat for other characters in A$. 

300 Start again at beginning of A$. 


Listing 


10 

SB 

50 

100 

110 

120 

200 

210 

220 

230 

24.0 

25© 


REM BUILDUP-BREAKUP 
REM COPYRIGHT 1332 

S . ROB E RT SPEEL 
LET R* = " «F^SSPW' 

FOR F = 1 TO LEN B$ 

LET B=INT (R ND*22> 

LET B=INT (RND*22)+7 
PRINT RT B,B;B|<FJ 
PRINT BT 21-R,B;B$tF> 


PRINT BT 
PRINT BT 
NEXT F 
GOTO 100 


B,31-B;B$ tF) 

21—B , 31-B; Bj$ fF.' 
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Pattern 4A - Buildup-breakup Block 

This shows one useful development of Pattern 4. 

Instead of printing just one character at a time, we print four. 
This includes the first character from strings A$, B$, C$ and 
D$, printed in a block. 

A$;B$ 

C$; D$ 

Again, A$ can be any length, but B$, C$ and D$ should be the 
same length. This allows build-up of small pictures and more 
regular patterns. If A$ = B$ = C$ = D$, then the block is made 
of one graphic character repeated four times. This can produce 
a pattern like this. 



Notes on listing 

50-80 A$, B$, C$ and D$ are the same length. These 
particular graphics will give a weird ‘bubbling’ effect on the 
screen, which looks good in action but not when ‘frozen’ on 
paper. Change A$-D$ to any values you like, and increase 
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their length as you wish. Try blocks of characters with codes 
6 and 134 only. 

110 Note that A’s limits have changed; due to printing at A+1, 
A must not exceed 20. 

200-235 Print blocks of characters in usual way with second 
line on line below first line. 


Listing 


13 

2© 


50 
B0 
7© 
88 
100 
110 
120 
200 
205 
210 
215 
£20 
225 
F) 
230 
IF) 
235 
( F ) 
24.3 
25 © 


REM BUILDUP-BREAKUP BLOCK 
REM COPYRIGHT 1982 

S_s_ROBERT SPEEL 
R$ = " 

B$ = “ 

C$ = " 

D$ = ”_ 

F = 1 TO LEN R $ 

R = INT (RND *-20 ) +1 
B = INT (RND*22)+7 

RT R,Bjfl*(F);B$(F) 


LET 
LET 
LET 
LET 
FOR 
LET 
LET 
PRINT 
PRINT RT 
PRINT RT 
PRINT RT 
PRINT RT 
PRINT RT 


fl + l',B; C$ (F) , D* (F) 

21- fl.B;RS(F);B$(F) 

22- R,B;C*(F);D* <F? 
fl,3I-B;R*(F);Bt(F> 
R + 1..31-B; C$(F) ; D$ i 


PRINT RT S1-R,31-B;R$(F);B$ 
PRINT RT 22-R,31-B;C$CF) ; D$ 


NEXT F 
GOTO 100 


Overlay 

Program runs in IK 


This is a IK pattern which is interesting to watch for quite a 
long time as it changes and develops from one configuration to 
another. It makes a good display program, as it repeats itself 
only at long intervals, each character in line 30 taking fifty 
seconds to run through. By changing line 30, you can have com¬ 
pletely different patterns appearing. You can also have the list 
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longer than eight graphics and the program will accept this 
without further change. 




Two patterns produced by the program are shown, without any 
changes to the listing, even to line 30. This shows how much 
just IK can do for you! 

Notes on listing 

10 X sets the size of grid. 

20 Z acts as a pointer to the character being used in string A$. 
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30 A$ contains the characters used in the pattern. This can be 
changed and made longer, to give completely different 
patterns. 

Here is one alteration you could try. 

3© LET R$ = ” 

40-90 Printing loop. Each character is used for about fifty 
seconds before the next is started. 

70 adds 128 to the character’s code to get its inverse 
character, or take 128 off if character is already inverse. 

80 PRINT 2 normal and 2 inverse characters in 4 quadrants 
of picture. By putting a character, immediately followed by 
its inverse, in line 30, very striking effects can be produced 
when they change over. 

90 Repeat 150 times. 

100-120 Set Z to next character in A$ and repeat for new 
character. If at end of A$, start sequence again. 


Listing 


X REM OUERLflY 
2 REM BY S.ROBERT SPEEL 
10 LET X=l? 


20 LET Z =1 

30 LET R$ = "*j§ 

4-0 FOR F = 1 TO 150 
5© LET B=INT tRND*9> 

6© LET C=INT (RNDJ9) 

7© LET R =125-f CODE R$ 


CZ)-(CODE 


flS(Z)>127)*256 „ 

'S© PRINT RT B.C:R$CZJ;RT B,X-C 
;CHR$ a;RT a- 5.C;CHR$ a.. RT X—B,X 
-C;Rf tZi 

90 NEXT F 

1©0 IF Z-LEN THEN LET Z=0 

110 LET Z=Z+1 
120 GOTO 4-0 



Plot Sketch 


Program runs in 1K 
To use 

When you RUN the program, a single pixel appears in the 
bottom left-hand corner of the screen. You can move this 
‘cursor’ with keys 5, 6, 7 and 8, leaving a black trail. With a 
little practice, you will be able to draw good pictures. You can 
move the cursor without leaving a trail by pressing key 0 
(RUBOUT). This will make the cursor rub out lines which it 
passes over. To get back to drawing mode, press key 9 
(graphics). 

as * « 


■ m 



Note that it is possible to run out of memory with very black 
pictures when using only IK RAM. With 2 or more K, you 
won’t run out of memory. The pictures above and overleaf were 
drawn using a 1K machine. 
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Notes on listing 

10-30 X and Y are the co-ords of your cursor. RS is set to 1 
to PLOT, 0 to UNPLOT. 

60-70 Move cursor according to key pressed. 

80-90 Check that you do not go outside bounds of screen. 

The picture area can be increased if using 2K or more RAM, 
i.e.,80 LET x = x+(x<l)—(x>60) 

LET y= y+(y<l)-(y>40) 

100 Change plot/unplot mode if key pressed. 

110 Repeat until BREAK pressed. 

Listing 

I REM PLOTSKETCH 

1© LET X = 1 
S© LET Y =5 
3© LET RS =1 


4-© 

5© 

60 



80 

9© 


PLOT X,Y 

IF RS<1 THEM UNPLOT X,Y 
LET X=Xi-(INKEV'$ = "8") -tlNKEY 
) 

LET Y=Yt t INK.EY$ = "?••> - tINKEY 
) 

LET X=X+tX<1)—(X>50) 

LET Y=Y+ (Y <5) — (Y>4-©) 


10© LET R5=S6N (RS+ £ INKEY$ = ”9”) 
- i INKEY& = ”0"> ) 

11© GOTO d-0 





Screen Art 


A program for drawing directly on to the screen. 

Listing occupies 0.8K 
Program runs in 1.8K 

It is possible to make pictures on the screen with the ZX81. 
This can be used to design garden layouts, graphic designs, 
drawings with perspective or just for amusement. 

On running, a black square appears in the bottom left-hand 
corner of the screen, flickering. The keys 5, 6, 7 and 8 move 
the flickering square in the normal directions leaving a black 
trail. The keys 1, 2, 3 and 4 are also used for moving north¬ 
west, north-east, south-east and south-west respectively. 

7 


a 


s 



Holding down a key leads to continual moving in that direction. 
When wishing to move more slowly, one space at a time, press 
SLOW - the D key. This slows the movement by about half. 
To return to the normal speed, press FAST - the F key. 

To change the black square to a different character, press 9, 
then input the new character. So, to get a grey trail, press 9, 
shift graphic shift H, then press NEWLINE twice. To get zero, 
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press 9,0 NEWLINE. To get a space for moving without a trail 
and rubbing out lines, just press 9, NEWLINE. 

One more command is TEXT. When you wish to write 
something on screen, it is awkward to keep on pressing 9, the 
new letter, move along, and so on. By pressing T, you can input 
a group of letters/graphics, so to write ‘HELLO’ press T, 
HELLO then NEWLINE. If your string is too long, and won’t 
fit on screen, you will lose the excess letters. 

Notes on listing 
10 goto variables. 

100 Print the character in use, B$, making it flicker, so as to 
be seen more easily. 

110 Wait for key to be pressed. 

200-240 Movement of character. Note that the keys 1-4 
appear in both X+Y co-ord change lines. 230-240 stop the 
character going offscreen, so that diagonal movement keys 
will produce vertical/horizontal movement when reaching 
the edge of the screen. 

250-280 If in normal speed, repeat loop. If in slow speed stop 
for a moment. Increase F as desired, for longer pauses. 
300-310 If the key showing SLOW or FAST is pressed, 
change to appropriate speed. 

320 If key 9 is pressed, goto change graphic routine. 

330 If key T is pressed, goto text routine. 

400-430 Change graphic routine. Make sure new graphic is 
one character long. 

500-540 Text routine. Input text, shorten it if too long for 
screen and put back cursor directly after the text. 

8000-8030 Variables X+Y are co-ords of cursor, B$ is the 
cursor character, initially an inverse space, and SP is the 
speed which is initially fast. 

Listing 

1 REM SCREEN RRT 1 
10 GOSUB ©000 

100 PRINT RT Y,X;" i RT Y , X ; "W" 

RT Y .. X.; B $ 

110 IF INKEY $ = '•" 


THEN GOTO 100 
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120 LET R*=INKEY* 

200 IF R* <"1" OR R * > “ S '* THEN GO 

TO 300 

210 LET X=X+<R*="S") +<R* = ,, 2") +< 
R*="3") - (R* = ”5 , ‘ ) — (R * = " 1 “ ) -<R**”4 

220 LET Y=Y +tR*=”6">+tR*»"3">+< 
R$=”4”) - = - (R * = " 1 “ ) - (R*»”2 

*' ) 

230 LET X=X+(X <0) - (X >31) 

34.0 LET Y=Y + (Y <0) - (Y >21) 

350 IF SP=1 THEN GOTO 100 
350 FOR F=1 TO 10 
270 NEXT F 
360 GOTO 100 


300 IF RSs-D'’ THEN LET SP=0 
310 IF R*«”F” THEN LET SP = 1 
330 IF R*=“9” THEN GOTO 400 
330 IF R* = *’T" THEN GOTO 500 
390 GOTO 250 


400 INPUT R* 

410 IF R* a”" THEN LET R*=” " 

420 LET 5*=>R* ( 1) 

430 GOTO 100 


500 INPUT R* 

510 IF LEN fl*+X>31 
R*l TO 31—X) 

530 PRINT RT Y,X;fl* 
33© LET XaX+LEN R* 
540 GOTO 100 


THEN LET R* = 


3000 LET X=0 
S010 LET Y =21 
5030 LET = 
5030 LET 5P=1 


Screen Art 2 


Listing occupies 1.8K 
Program runs in 2.9K 

To use 

A number of new commands have been included. The most 
important of these are PLOT and UNPLOT. This means that 
you can draw things half-size (i.e., twice the resolution) easily. 
Press PLOT - the Q key - to get into PLOT mode, and the 
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computer will draw narrow black lines instead of the normal 
thick ones. This is very useful for drawing delicate outlines and 
details. You cannot use TEXT while in PLOT mode, but you 
can move in all eight directions normally. To wipe out or move 
around, you press UNPLOT - the W key - which is equivalent 
to the space in PRINT mode, only one-quarter the size. (Note: 
moving on to a PRINTed graphic with a PLOTted point will 
erase the whole PRINTed graphic, unless it is a graphic which 
could be formed out of PLOTted points. To return to PRINT 
mode, just press PRINT - the P key.) 

Another useful set of commands is the RETURN group. 
These are usable in both PRINT and PLOT mode. The 
RETURN commands the return of the cursor to one of nine 
positions which are the four corners, the centres of the four 
sides and the centre of the screen. They are numbered: 

1 2 3 
4 5 6 
7 8 9 

The cursor starts at position 7. To return to the top right-hand 
corner, press RETURN - the Y key, then press 9. To return 
to the centre, press RETURN, 5, and so on. 

If you are lucky enough to have a ZX Printer then add these 
lines. 

3©0 IF THEN GOSUB B50 

550 INPUT Z$ 

560 IF Z*<> ,, Z" THEN RETURN 
570 COPY 
530 RETURN 


These allow you to COPY your designs. Note that you have to 
press Z and Z NEWLINE to COPY, so that you cannot COPY 
by accident. Once the picture is COPYed, you can carry on 
with the same drawing. You can only COPY while in PRINT 
mode. This opens up many more possibilities, such as making 
personalized Christmas cards, ex-libris labels, and you can 
make a collection of your drawings. 
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Notes on listing 

340 If RETURN is pressed goto RETURN sub-routine. 

350 If PLOT or UNPLOT key is pressed, goto PLOT routine. 
600-650 RETURN sub-routine. Co-ordinates of nine places to 
which you can RETURN are stored in C$. 

700-850 Main PLOTting/UNPLOTting routine. 

700-710 converts co-ordinates of PRINTed point to that of 
PLOTted point in same position. 

720-730 Set PL according to whether PLOTting or 
UNPLOTting. 

740-770 Make point flicker so it can be seen and PLOT or 
UNPLOT according to PL. 

780-800 Check for key pressed, and divert to line 900 unless 
movement. This saves time. 

810-850 Move point within screen boundaries and repeat 
loop. 

900-990 If PLOT or UNPLOT changed, set PL accordingly. 

If RETURN or PRINT pressed, goto relevant sub-routines. 
1000 PRINT routine. Change PLOTted co-ords back to 
PRINTed co-ords and go to main loop. 

1100-1150 RETURN sub-routine. Make sure that key 
pressed is in correct range. 

The co-ords of points to RETURN to are stored in C$. 

Note that since these are PRINT co-ords, they have to be 
converted to PLOT words. 

8040 C$ contains the co-ords of the nine RETURN points. 
Each co-ord is given two numbers and the Y co-ord is given 
first. The co-ordinate pairs are separated by full stops for ease 
of entering and checking. 

Explanation of copy routine 

This is straightforward, but note that your have to press Z then 
Z NEWLINE, so that you cannot accidentally COPY. Note 
also that you can continue the drawing after COPYing, which 
you cannot do by pressing BREAK COPY. 
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1 REM SCREEN ART 2 

34.0 IF = ,, Y , ‘ THEN GOTO 600 
350 IF R$ = *'©" OR R$ = * , U1" THEN GO 

TO 70S 

SOS LET R$=INKEY$ 

610 IF R$<"1" OR R$> ,, ’9" THEN GO 
TO 600 

S20 LET RE *VfiL R$*5-4- 

630 LET Y=URL C$ ff?£ TO f=t£+l> 

64.0 LET X =URL C$(RE+2 TO RE+3J 
©50 GOTO 100 

700 LET Y =4-3-2rf-Y 
710 LET X=2*X 

720 IF R^s''©" THEN LET PL=1 
730 IF R$="U" THEN LET PL «0 
74-0 PLOT X , Y 
7S0 UNPLOT X , Y 
760 IF PL =1 THEN PLOT X,Y 
770 IF PL =0 THEN UNPLOT X,Y 
780 IF INKEY$ — THEN GOTO 74.0 
79© LET P$=INKEY$ 

300 IF OR R$>"3" THEN GO 

TQ 900 

610 LET X=X+ (R* = ,, S") + = + ( 

R6x'’3") - (A$t S ,, 5"» - (fijs"!") - 




























150 


SCREEN ART 


910 IF = THEN LET PLtl 

920 IF THEN GOTO 1000 

930 IF R$e"Y" THEN GOTO 1100 
920 GOTO 730 

1000 LET YtsINT i U3-V) ./2> 

1010 LET X»INT tXy2J 
102© GOTO 23© 

11O0 LET R$aINKEY$ 

1110 IF RS< ,, 1" OR THEN GO 

TO 1100 

1120 LET REaOflL ft$*S-4. 

1130 LET X*URL C$(RE+2 TO RE+3J* 

114.0 LET Y5s4-3-*JRL C$ (RE TO RE + 1) 
#2 

116© GOTO 730 

304-0 LET Ci = *’0000.0015.0031.1000 
. 1015 . 1031.2100.2115.2131. ** 

5050 RETURN- 



Text Display 


Program runs in 1K 
To use 

This program scrolls text continuously across the screen from 
right to left, with a double border scrolling the other way. It 
is suitable for short messages, notices and advertisements. 
Using IK, the message can be up to about 80 characters long, 
with a simple border. With extra memory, you can have much 
longer messages, e.g., complete specifications of the computer. 

When you run, you are first asked to input the text, then the 
border. The border can be made of any characters, and 
graphics look very effective. 

i a i I ISIB a I I B 5181 18 8 1 

*** MEETING OF COMPUTER CLUB ON 

% S S 3 sail 3 5 3 5 5538 i i i 8 


Notes on listing 

10-40 Input text. If length of text smaller than 31 characters, 
double it until it is 31 or more characters long. Remember 
to put a space after the text. 

50-80 Repeat for border. Note for both text and border you 
must enter some character, even if it is only a space. Just 
pressing NEWLINE will result in an endless loop. 

100 PRINT first 31 characters of text. 

110 Put the first character of text at end, i.e., scroll right to left. 

120-140 PRINT two borders. 
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150 Scroll border left to right. 

160 Repeat until BREAK pressed. 


Listing 

1 REH TEXT DISPLAY 
£ REH BY S.R=5PEEL 

10 PRINT “TEXT?' 

20 INPUT ft* 

30 IF LEN HI* <31 THEN LET ft*=R$ 

xQ i£ 

'4-0 IF LEN ft $ <31 THEN GOTO 30 

50 PRINT "BORDER?” 

60 INPUT B$ 

70 IF LEN B$ <31 THEN LET B$=B!j! 
+B* 

60 IF LEN B*<31 THEN GOTO 70 
90 CLS 

100 PRINT RT 6,3;fl$! TO 31) 

110 LET ft$=R$<2 TO >+ft*<l* 

120 FOR G =0 TO I 

130 PRINT RT 3+Gj6,0,B$( TO 31) 
1X0 NEXT G 

150 LET B$=B$(LEN B$J+B*( TO LE 
N BS-IJ 
160 GOTO 10© 



Avoid 


Program runs in 1K 
To use 

You are in control of a small vehicle at the top of the screen and 
can move it left and right with keys 5 and 8. Your object is to 
find a way through the maze of blocks which rise constantly 
towards you. The game ends when you crash into a block from 
above and your score is then given. You can crash sideways into 
blocks without harm. 



Notes on listing 

10 X is the x co-ord of the object. 

20 Sis the score. 

30 PRINT vehicle. 

40-80 PEEK at two squares directly underneath vehicle. If 
either contains a graphic shift T (code 6) then goto end of 
program. 
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90 Move vehicle left or right according to key pressed. Make 
sure it does not go too far left or right. 

100 PRINT blocks near bottom of screen. To make game 
easier, reduce number of block graphics from 6 to 4. 

110 SCROLL blocks towards your vehicle. 

120 Increase score. 

130 Repeat until you crash. 

140 You crash - score given. 


Listing 


1 

REM RUOID 

2 

REt-1 BY S . R . SPEEL 

10 

LEY X=10 

20 

LEY S=© 

30 

PRINT RT 0.. X; " 

l; 

4-0 

FOR F=1 YO 2 

30 

LEY R =PEEK (PEEK 

PEEK 

16399) 

6© 

PRINT '• "j 

70 

XF R=6 THEN GOTO 

80 

NEXT F 

00 

LET X =X -5- t IN KEY $ = " i 

$ = ”5- 

•} - (X>20) + (X < 1) 

100 

PRINT RT 15.RND*2« 

RT 15,RND*20; V J'sT" 

110 

SCROLL 

120 

LEY S =3 +■ 1 

130 

GOTO 30 

14-0 

PRINT "5CORE=";S 


";RT 1,X+ 



Adventure - Hero Maker 


The idea behind Adventure games is that you represent some 
sort of warrior who goes in search of treasure, usually in a 
dungeon, castle or other enclosed area. You search through the 
rooms or caverns looking for gold, weapons and other useful 
things. Each treasure is generally guarded by some kind of 
monster which you have to kill. If you survive and get out, your 
success is measured in how much treasure you escaped with and 
how many monsters you have killed. 

At each stage of the game you are told where you are, what 
is around you and, if there is a monster there, what type it is. 
You have a set of commands to move you through the cave 
system and to fight monsters. 

One way of programming such a game is to have a pre¬ 
planned set-up. The program contains monsters, treasures and 
traps thought up by the programmer. These always seem 
exciting for the first couple of games - for instance you might 
be able to get past the pit in Room A using a plank from Room 
B and attack the ‘ghosts’ in Room D using the sword in Room 
C. However, once you have played the game a few times, you 
know all the traps, where the gold is hidden and how to 
maximize your chances of winning. In effect the game is ‘used 
up’. 

Another way of making an adventure is to use a random set¬ 
up. A system of caves or rooms is randomly produced and pre¬ 
defined monsters and treasure are placed at random in each 
cave. Although you will gradually learn the best tactics against 
a particular type of monster, you will not get to the stage where 
you can win every time, or know just what to expect. This is 
the system which I use for Hero Maker. 
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YOU ENTER THE CRUE SYSTEM BV 
SLIDING DOWN ft LONG CHUTE. THIS 
OPENS INTO CflUE 1/3. 


THIS CRUE CONTAINS 
OF FRESH UATtR. 
THERE IS ft UARTHOG 
CRUE . 

UHRT DO YOU DO? 


ft SMALL POOL 
IN THE 


YOU TRY TO STftB xT 


SWORD. 

YOU HURT IT BADLY. 
THE MONSTER TRIES 


BUT FOILS. 

UHRT DO YOU DO? 


WITH 
TO K 


YOUR 
ICN YOU 


YOU TRY TO SLICE IT WITH YOUR 
RXE . 

YOU HURT IT BRDLY. 

THE UARTHOG IS DEAD. 

YOU FIND 3 GOLD COINS. 

AND R AXE 

YOU DRINK FROM THE POOL. 


3 

PRESS 


R) TO REST 

T) TO SEE STATUS 
N) TO GO NORTH 
E) TO GO ERST 

U) TO GO WEST 
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Hero Maker Part 1 

Listing occupies 9.0K 
Program runs in 11 .OK 


Typing in the program 

Adventure games are complex and take up a lot of RAM. As 
you won’t always have the time to type in many pages of listing 
in one go, I have split up the program into stages. Put in the 
main ‘program core’ and add the other stages later. At any 
point, the game is playable, although the first couple of stages 
are a little inflexible. When you feel ready to progress to some¬ 
thing more complicated, add the next stage. You will find in 
the end you have a very worthwhile game which will keep its 
playing value. 

The background. You are a young warrior who, although of 
noble birth and great strength, are too poor to take your rightful 
place among the country’s heroes. To become an acknowledged 
hero you must enter the Caverns of Power. This is a large cave 
system, originally used by men, but long since overrun by cruel 
and ferocious monsters, guarding their treasure to the death. 
Once in, there is no turning back, you must fight your way to 
the only exit.... 


The Core Program 

Listing occupies 6.1K 
Program runs in 7.3K 

Touse 

In the core program, the main cave system is set up and 
monsters placed. This means that when you RUN the program 
the screen will be blank for a few seconds. You are then 
launched straight into your first fight. You have two weapons: 
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a sword and an axe. When, during a fight, you are asked ‘what 
do you do?’, press key 1 to use your sword and key 3 to use your 
axe. Later you will find other weapons. A club is used with key 
2, a heatwand with key 4 and an icestaff with key 5. 

Only experience will teach you how best to kill monsters, but 
some methods are obvious. For example, a furred lion will be 
cold-resistant (against icestaffs) but its fur will easily be burnt 
by a heatwand. 

When you fight a monster, you are told if you have hit or 
wounded it badly. You are also told your resistance. This 
number tells you how many more hits you can take. You start 
with resistance 10, and if it goes to 0, you ‘die’. When monsters 
bite or otherwise damage you, your resistance goes down. 

When you kill a monster, you find treasure in the form of 
gold pieces, and one new weapon. You can then rest for as long 
as you wish. Each time you rest, your resistance increases until 
up to its maximum. Your ‘maximum possible resistance’ also 
increases for each monster killed, to an absolute maximum of 
around 20. 

The cave system is a grid of 10 by 5 cave locations. Your cave 
position is given as 2 numbers separated by a line. The first is 
the cave’s north co-ord, the second its east co-ord. So cave 
1/3 - where you enter - is in the centre of the southernmost row. 
You can escape by going north out of one of the caves in row 
10, but you have to discover which one. In each row, one cave 
location is actually solid rock, so you will not usually be able 
to go in a straight line to the exit. 

Your aim is to get the highest ‘hero rating’, which is made 
up from your ‘heroic bonus’ and how much money you have 
accumulated. 


Notes on listing 

The basic core program includes the complete fighting system, 
which is very complex. Each type of monster has its own 
individual resistance to each type of weapon. 

The monsters attack in different ways, and are better at some 
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forms of attack than others, e.g., a cave hyena is good at biting 
(bite value = 5) but cannot claw or crush at all (claw value and 
crush value = 0). Other factors, such as the fact that you are 
gradually becoming better at using a weapon, are also taken 
into account. However, the computer deals with all this, and 
you need not know how it works when playing the game. 


10 GOSUB variables and set up cave system. 

1000-1010 Pairs of lines like this, setting SN to some number 
and then GOSUBing 6500 or 6550 occur throughout the 
program. GOSUB 6550 means SCROLL SN times, GOSUB 
6500 means PAUSE for a couple of seconds, then SCROLL 
SN times. 

1020 Check for winning - you exit cave system. 

1030-1100 You enter cave. If monster there, goto 2000. 

1110 No monster in cave. 

1200-1550 Possible choices of action given, and commands 
accepted. Checks for wrong commands and ignores them. 
Carries out correct commands. 

2000-2020 Select random monster. M$ and P$ are parts of the 
monster array, and are more convenient to use. 

2100-2150 Wait for your fighting commands. If no command, 
go straight on to monster’s attack, as you are assumed to be 
standing around doing nothing. 

2200-2280 Monster selects its attack, with a bias towards what 
it can do best. 

4000-4360 You hit monster, damage calculated. Death of 
monster checked for. Lines 4230-4260 see how many times 
you have used a weapon, and whether you gain experience 
in using it. 

4500-4590 Monster dies. If treasure, goto 7000. Increase 
number of monsters killed, maximum resistance (if 
appropriate) and heroic bonus. 

4900-4910 You press a wrong key. Note that you lose your 
chance to strike that go, due to indecisiveness. 

5000-5230 Monster strikes you. Your resistance is decreased 
if it hits you successfully, and your demise checked for. 
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5500-5590 You win. Your final hero rating is the sum of your 
heroic bonus (which depends on how tough your fights with 
the monsters were) and your gold pieces. 

6500-6530 PAUSE routine. 

6550-6580 SCROLL routine. 

7000-7070 You find treasure, gold pieces and one weapon. 

8000-9990 Set up variables and caves. This is done in FAST 
mode to save time. 

8010-8060 Your possible weapons. Each weapon has an 
action, e.g., STAB, which is 6 letters minus VAL X$(F,7), 
and a name, e.g., SWORD, which is 8 letters long minus 
VAL X$(F,16). The last figure is the maximum damage 
possible with that weapon. 

8200-8240 Directions. The figures are the co-ords to move 
your position north and east (-1 for south and west). 

8300-8350 Monsters. The figures are as follows (taking the 
unicorn as an example): M$(l,l TO 12) = name, M$(l,13) 
= number of characters to remove from end of name, 
M$(l,14 TO 15) = resistance of monster, M$(l,16 TO 20) 
= defence values against sword, club, axe, heatwand and ice- 
staff respectively. M$(l,21 TO 25) = attack values for bite, 
kick, impale, claw and crush respectively so that the unicorn 
is good at impaling (value 6) and biting (value 3) but cannot 
claw or crush (value 0). M$(l,26) is the extra cash bonus for 
killing that monster, 0 for the unicorn as it does not collect 
extra gold. M$(l,27) is the heroic bonus for killing that 
monster, the unicorn’s value of 5 means that it is moderately 
difficult to kill. 

9000-9260 Set up R$ which holds the cave system. Note that 
the cave system is actually a 7 by 12 block of caves, of which 
only the middle 5 by 10 are used. This is to stop the computer 
looking outside the array when considering exits from a cave. 

9300-9370 Variables. RS = your initial resistance, CASH = 
gold pieces gained, MK = monsters killed, HQ = heroic 
bonus, W$ = your weapons, Y$ = your current max 
resistance and experience bonus, CEX = extra cash for 
killing monster, Y = how many times you have used 
each weapon successfully. CVN and CVE are your co-ords 
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in the cave system. 

9800-9940 Short introduction, SLOW and start enter cave 
routine. 

Listing for Core 1 


1 REM HERO HRKER 

2 REM COPYRIGHT I3S2 

5. ROBERT SPEEL 

3 REM CORE PROGRAM 

10 GOSUB 80CO 

1000 LET SN = 13 
1010 GOSUB 6550 

1020 IF CUN=12 THEN GOTO 5500 
1030 PRINT AT 0,0;“YOU ENTER CRU 
E CUN-lj "s"i CUE—1;RT 1,0 


1100 IF R$ (CUN, CUE, I) = "I" THEN G 
OTO 2000 

1110 PRINT " THE CRUE CONTAINS N 
O MONSTERS." 

1200 PRINT " PRESS“ i TRB 10, "RJ T 
O REST" 

1210 FOR F = 1 TO 4- 

1220 IF R$(CUN+URL C$(F,6 TO 7J , 
CUE+UAL C$tF,8 TO 9>,I><"9" THEN 
PRINT TRB 10; C* (F, 1J> ; “J TO GO " 
;C* CF,1 TO 5) 

1230 NEXT F 


1250 FOR F = 1 TO 4-00 
1260 LET R*=INKEY$ 

1270 IF R$="R" THEN GOTO 14-10 
1260 IF fi$=”T" THEN GOTO 6000 

1300 FOR G = i TO 4- 

1310 IF R$(CUN+URL C*(G,6 TO 7), 

CUE+URL CS(G,B TO 9>,1)<"9" AND 

R$=C$(G,1) THEN GOTO 1370 

1320 NEXT G 

1330 NEXT F 

1360 GOTO 1250 


1370 LET CUN=CUN+URL C$(G,6 TO 7 
i 

1360 LET CUE=CUE+UAL C$SG,8 TO 9 

1390 PRINT " YOU DECIDE TO GO **; 
Ci (G,1 TO 5J ; " 


« * * 
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1408 GOTO 1000 

14-10 IF RS<URL VS ( 1 TO 35) THEM L 
ET RS=R5+INT (RNDiS)+1 . 

14-20 IF RS>URL Y*(l TO 2 j THEN L 
ET RS=URL YS<1 TO 2) 

1430 PRINT RT 16,1;"YOU HAUE A R 
E3T.,,"YOUR RESISTANCE IS NOW 

*« ■ Rg 

14- 6® FOR F = i TO 50 
1470 NEXT P 

1510 FOR r-IS TO 21 
1520 PRINT RT F,8; •* 

** 

15- 30 NEXT F 

1548 PRINT RT 15,0; 

1550 GOTO 1250 


2808 LET NS=HSdNT (RNDfS)+1) 
2010 LET PS=N*C TO 12-VRL NS(13) 

2828 PRINT “THERE IS R ";P$;” IN 
THE";TfiB 0;" CRUE." 

2100 PRINT “UHRT DO YOU DO?" 

2110 LET Z=0 „„„ 

2120 FOR F=1 TO 200 
2130 LET RS=INKEYS 

2140 IF RS>“0“ AND THEN L 

ET Z=UfiL RS 

2150 IF Z THEN GOTO 4808 
2160 NEXT F 
2170 LET SN=10 
2180 G03UB 6550 

2200 LET HY=XNT (RND* (URL NS(21) 
+URL NS(22)+URL N$i23)+UfiL NS(24 
) -l-URL NS «25) +1) ) 

2210 LET MX =0 

225© FOR F=1 TO 5 

2260 LET MX=HX+URL NS(F+20J 

2270 IF MY < =HX THEN GOTO 5880 

2280 NEXT F 


4000 LET SN = 12 
4010 GOSUB 655© 

4028 IF US(Z)=“8” THEN GOTO 4300 
483© PRINT “YOU TRY TO T 

O 6-URL X$(Z,7));" IT WITH YOUR" 
;TRO © j XS iZ_»8 TO 15-URL X$ (Z, 16) 
);-.** 

4100 LET HR = INT (RNDfUAL X$iZ, 

))+URL Y$(Z+2)+l 


17 
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4-110 XF HR>URL N$ (15+X.) THEN 

O 4-203 „ 

4-120 PRINT “YOU DO NOT tiUnT 

4-130 GOTO 2200 


GOT 
XT. " 


LET 


DflM=HR —URL 
trsi 


N$ ( 3.5 +Z) 


RND 

RND 


4-210 PRINT ("YOU WOUND XT 
DRM < 3) ; ("YOU HURT Is B’nDL> 

DRH >2) 

4-230 LET YiZJ =Y(Z» (•! 

4-24-0 IF Y (Z) <10 1 HEN GOTO 4-300 

4-250 LET Y (Z) =0 

4-260 IF Y$ (Z +2) < "3" THEN LET Y$ 
Z+2)=STR$ CURL Y$ (Z+2) +1) 

4300 LET NS (14- TO 15)=STRS (URL 
N$ ( 14- TO 15) -DRH) 

4310 IF URL N $(14 
GOTO 4500 
4320 IF URL N*(14 
PRINT "THE ";P$j" 

4360 GOTO 2200 


TO 15)<1 THEN 


TO 

IS 


15)<3 THEN 
UERY UERK.' 


4500 PRINT "THE IS DERD." 


4520 LET RS(CUN , CUE , 1)="0" 
CEX=URL N$(26) 

4550 IF Yt(1 TO 2)<"20" THEN LET 
Y*ti TO 2)=STR* CURL Y*(l TO 2) 
+1 NT (RND *2) +1) 

4560 LET MK=MK+1 

4570 IF R4(CUN>CUE y 3)>"0" THEN G 
OSUB 7000 


4580 LET HQ-HQ+UHL N®{27) 
4500 GOTO 1120 


4900 PRINT " YOU TRY TO USE R WE 
RPON WHICH YOU DO NOT HRUE. ** 
4910 GOTO 2200 


5000 LET GS=FS<F) 

5010 PRINT " THE MONSTER TRIES T 
O GS( TO 7—URL GS(S));" YOU" 
5100 LET MD=INT (RND*10)-10+URL 
N*(F +20) 

511© IF MD>=© THEN GOTO 5200 
5120 PRINT "OUT FfilLS," 

5148 GOTO 2100 
5200 LET RS=RS—HD—1 

5210 PRINT "YOU RRE HURT , YOUR R 
ESISTRNCE IS NOW "jRS; C". YOU DI 
E." RND RS <1) 

5220 IF RS <1 THEN STOP 
5230 GOTO 5130 
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5500 PRINT 


-551© FOR F = 1 TO 2® 

5520 PRINT "E"; TAB 31; ”| 
553© NEXT F 
554-Q PRINT 


555© PRINT RT 3,3;“VQU HRUE ESCS 
PED RLIUE.“jRT 5,4; “YOU HRUE C 
RSH; ** GOLD COIN5,“,RT 8,3; “RND H 

roe’ killed “; mk; ■* monsters . ” 

5550 PRINT RT i0,4;"YOUR HEROIC 
BONUS IS 1 ;HQ 

5580 PRINT RT 12,4-j “YOUR HERO Rfi 
TINS IS **; HS+CRSH 
5500 STOP 


8500 FOR F=i TO 50 
6530 NEXT F 


6550 FOR F = i TO SN 
6560 SCROLL 
6570 NEXT F 
658© PRINT RT 0,0; 
6500 RETURN 


7000 LET R$(CUN,CUE,3J="0" 

7018 LET CD=INT (RND*X5)+2+CEX 
7830 LET GRSH=CRSH+CD 
784-0 LET UF = INT (RNDiS) +1 
7058 LET U*(UFJ=STR$ (URL WfiUF) 
+ 1 ) 

7060 PRINT "YOU FIND ";CD;" GOLD 
COINS";TRB ©;" RND R **;X*(WF,8 
TO 15—URL X4 CUF,16J ) 

7870 RETURN 


8008 FRST 

8-010 DIM X$ <5,17) 

8*020 LET X$ (1J = " STh-5 . , 2SUORD • , .3 

803© LET X$(2) =“BRSH- ,2CLUB. ... 4 
7" 

S84-0 LET X$(3) =“SLICE. IfiXE. . « , .5 

=T 

8050 LET X 4 C 4 -i ="BURN » * 2HERTURND0 

8 ” _ _ 

6860 LET X4(5) =’‘FRttzt0lL-L8! PFF0 
9“ 

8100 DIM F$ >5,8i 

8110 LET F$(i:i=“BITE,,«3“ 

tf!20 Lti Fg 12J =“KICK, « ,3“ 
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8130 

LET 

FS (3) =" 

IMPALE.1" 

8140 

LET 

FS f4J =* 

CLRU...3" 

6 18© 

LET 

FS (5)=“ 

CRUSH.=2" 

8208 

DIM 

C- S < 4 3 ) 


8218 

LET 

C$ C1J =" 

NORTH8188 

8220 

LET 

C-S D =” 

S O UT 

8238 

LET 

CS C 3) =” 

FAST 0881 

8240 

LET 

C-S (4) =" 

UEST 03-1 


8303 DIM r1${5,275 

8310 LET MS { 3.) ="UNICORN. . . - .514-3 
45S33463805" 

8320 LET MS (£}-"UfiRTHOS.....5102 
41352550833" 

8330 LET MS i3i ="FURRED LION.1391 
24863005025" 

8340 LET M${4)="CRUE HYENA,.2883 
24555882813" 

8358 LET MS(5)="GORILLA.....5143 
52165108825" 


3080 RAND 

3013 DIM R$112..7.3) 

3020 FOR F =2 TO 11 
3830 LET R$(F J i,i)= " 9 " 

9048 LET R$!FT,i)="9" 

3350 FOR G=2 TO 6 
3868 LET RsiF.G.i)=“I" 

3880 LET RjirjG,3S="1" 

9333 NEXT G 

3100 LET R$ (Fj JNT CRNCjS) +2,13 ='' 
3" 

3110 NEXT F 

3200 FOR F=i TO 7 

3218 LET R$11,F,1)="9" 

3220 LET R$(12,F >1> =“9" 

3230 NEXT F 

9248 Lti RE-INI 1RND53)43 
3250 LET R$ ti2,RE, II* ="1" 

3263 LET R$ (li, RE i) = “ 1" 

3300 LET RS=1@ 

9310 LET CflSH=0 
3320 LET MK=0 
9388 LEi HQ 
3340 LET U$-“10100" 

3350 LET VS-"1010100" 

9380 LtT Ct.X ~Q 
3370 DIM V(5) 

9708 LET CUN=2 
3710 LET CUE=4 
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980© PRINT " YOU ENTER THE CRUE 
SYSTEM BY SLIDING DOWN A DEEP 
GHOSH. THIS OPENS INTO C RVE 1Y3. 

II 

9930 SLOW 
9990 GOTO 104-0 


Hero Maker Part 2 

Listing occupies 7.7K 
Program runs in 9.OK 

To use 

When you are ready to expand Hero Maker, add this 
expansion. Don’t worry if a few of the new lines expunge old 
ones - this is necessary to update the listing to cope with the 
new parts. 

This will expand the fighting possibilities, so for the first time 
the cave will have a short description and some effect on 
combat. Caves can now have pools of water, or be slippery- 
floored, or be filled with steam. 

You can also look up your status. This gives up-to-date 
details on your resistance, weapons and gold pieces. It also 
gives your heroic bonus, the measure of your success in killing 
monsters. 

*WW STATUS VWUl 

YOUR RESISTANCE XS 19 
YOU HRUE 38 GOLD PIECES 
YOUR WEAPONS ARE:- 
1 SWORD 

1 CLUB 

2 HEATWANDS 
1 ICESTAFF 

HEROIC BONUS = 22 
CPRES5 NEWLINE TO CONTINUE) 

You can now break your weapons, so you will be glad for a 
few spares. You can also be interrupted by monsters which just 
wander in while you are resting. These monsters have no 
treasure of course. 

Due to the increased difficulty of killing monsters, your 
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initial resistance has been increased to 20, and the maximum 

to 30. 

Notes on listing 

1040-1050 SLP is the slip value and VIS the visibility value for 
a cave. 

1090 GOSUB cave’s description. 

1200-1280 A status command has been added. 

1340-1500 These lines make it possible for a monster to just 
wander into the cave where you are, while you are resting or 
thinking. 

2400-2430 Room with pool. At this stage, this only means you 
might slip and fall while fighting. 

2500-2520 Slimy room - easy to fall over here. 

2600-2620 Steam room - your view of the monster may be 
obscured here. 

3000-3080 Enter wandering monster. 

4050-4060 Check for falling over and steam. Note that you can 
only slip when using a heavy weapon such as a sword, axe 
or, worst of all, a club. Light weapons - heatwand and ice- 
staff - will not make you slip. 

415(M160 You miss due to steam obscuring your sight. 

4330-4350 Your weapon breaks. 

4600-4660 You slip and fall over. Note you can actually 
damage yourself like this. 

6000-6170 Status. Resistance, gold pieces, weapons and 
heroic bonus given. 

9070 Each cave is given a value to determine if it is a steam 
room, pool room, etc. 

9300-9350 New resistance = 20. 

Listing 


3 REM CORE + PRRT 2 

1040 LET SLP =0 
1050 LET UIS=0 

1000 GOSUB 230S + 100 *URL R$(CUN,C 
VE,2) 
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1200 PRINT " 
O REST"; TfiB 

is 


PRESS";TR8 10; "R> T 
10;"TJ TO SEE STATUS 


12S© IF RS="T" THEN GOTO 6000 


134-0 IF RND < . 1 THEN GOTO 3000 
1500 IF RND <.1 THEN GOTO 3000 


24-00 PRINT "THIS CRUE CONTAINS R 
SMALL POOL OF FRESH WRTER-" 

£410 LET SLP=.2 
24-2© LET Wfi = l 
24-30 RETURN 


2500 PRINT " 
COUEREO IN S 
OUR BALANCE." 
2518 LET SLP = 
2520 RETURN 


THE GROUND HERE IS 
LINY RLGRE- URTCH Y 


1 


2t>00 PRINT " THIS CRUE IS HOT 
D FULL OF STERH." 

2610 LET UI5 = 1 
262© RETURN 


R N 


NS=MS CINT 
PS=NS( TO 


3000 LET 
3010 LET 
> 

302© PRINT " SUDDENLY 
COMES";TAB 2;"IN." 
3850 LET SN=20 
3050 GOSU3 6500 
3880 GOTO 2100 


fRND*5>+ 1} 

12-URL N*(13) 


R 


PS; 


4850 IF (Z = l RND AND<.l*SLP.l OR 
CZ=2 RND RND < . 2iSLP) OR iZ=3 RND 
RND <.15xSLP3 THEN GOTO 450© 

406© IF RND<UIS*.I THEN GOTO 4IS 
0 


4150 PRINT "DUE TO THE THICK STE 
AM. YOUR AIM IS SPOILT.. RND YOU 
HISS." 

4160 * GOTO £280 


433© IF RND <.02 THEN GOTO 2200 
4348 PRINT ” UNLUCKILY, YOUR **;X 
S«Z,8 TO 15 —URL XSCZ.16) ) ; “ BRER 
KS. " 

4350 LET US(Z)=STRS CURL U$CZJ-1 
1 
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4-550 IF Y$(l TO 2) <"30" THEN LET 
Y$(i TO 2) =STR$ CURL V'$il TO 2? 
+ INT (RND*2.» + 1J 

4-600 PRINT “ YOU SLIP AND FALL O 
vER, HISSING TOTRLLY." 

4610 IF RND<.© THEN GOTO 2200 
4620 LET R5=RS-INT (RND431-1 
4630 PRINT "YOU ARE BRUISED, RND 
YOUR";TAB 0;"RESISTANCE IS NOW 

» • pg 

4650 IF RS<i THEN GOTO 5300 
4660 GOTO 2200 


6000 LET 5N=15 
6010 GOSU8 6550 

6020 PRINT “AWT STATUS VWVV'j 
TAB 1;TAB 0;"YOUR RESISTANCE IS 
” ; RS; TAB 0; "YOU HAUE “;CRSH;“ GO 
LD PIECES";TAB 2; YOUR WEAPONS A 
RE • — " 

6030 FOR F=1 TO 5 

6040 IF UAL U*(F)>0 THEN PRINT T 
AB 7;U$(F);" ";X*(F,8 TO 1S-UAL 

X* (F.. 16) ) ; ("S" AND UAL U*(FJ>1) 
6050 NEXT F 


6100 PRINT "HEROIC BONUS = "; HO 
6130 PRINT "(PRESS NEWLINE TO CO 
NTINUE) ■’ 


6140 

5150 

0160 

6170 

IF INKEYS = "** THEN GOTO 
LET SN=16 

GGSUB 6550 

GOTO 1200 

6140 

9070 

*4) 

LET 

R$(F,G,2)=STR$ INT 

(RND 

9300 

9350 

LET 

LET 

RS =20 

Y$="2010100“ 


9330 

9390 

LET 

LET 

TM =0 

TT =0 
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Hero Maker Part 3 


Listing occupies 9. OK 
Program runs in 11 .OK 

To use 

Now that you are expert at Hero Maker, you will survive longer 
in the caves. Therefore, we must consider eating and drinking. 
While the typical adventurer carries food, water is more bulky 
and needed more often. You start off well watered, but 
gradually you will become more and more thirsty until you die 
of dehydration after eighteen hours. As each rest takes one 
hour, and a fight or moving from one cave to another takes ten 
minutes, you would not last long were it not for the caves with 
pools. Up until now, these have not been very important, but 
now you can drink from the pools and last another eighteen 
hours. Just rest in a pool cave and you automatically drink. So, 
as long as you go to a pool cave every few hours, you will be 
OK. 

There is a new type of cave - the stalactite cave. Here stalac¬ 
tites hang from the ceiling and fall off and may hit you. You 
will have found that monsters do not slip or get bewildered by 
steam, as they are used to their caves. However, no monster can 
get used to falling stalactites, and they are just as likely to fall 
on the monsters as on you. 

There are five new monsters. The death turtle is very well 
armoured and the earth viper is rather vicious as, although it 
has a low resistance, just a few bites from it can kill you. 

Notes on listing 

1060 DA is the chance of a stalactite falling on you. WA is set 
to 1 if there is drinking water (a pool) in the cave. TM is the 
time since you last drank (in 1/6 hours). 

1440-1490 While you rest, a stalactite may fall on you (if there 
are any). You rest for one hour and if there is a pool of water, 
you drink. 

1700-1860 Stalactite routine. The stalactite can hit you, the 
monster, or nothing at all. DM is the damage done by a 
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falling stalactite if it hits the monster. A falling stalactite 
reduces resistance by between 1 and 5. 

2000 There are now ten monsters to choose from. 

2050-2060 Make monsters weak for the first couple of 
combats, and stronger than usual for later combats (after 
thirty-six hours). 

2300 Stalactite cave description. 

3000-3050 Some adjustments to the wandering monster 
routine. Some SCROLLing is needed to prevent program 
crashing due to ‘OUT OF SCREEN’ problems. 

5570-5580 Modification to ‘you escape’ routine. 

6110-6120 Status now includes details of how long you have 
been in the caves, and when you had your last drink. 

6540-6660 During routine, check if you die of thirst. 

8300-8400 Increasing the size of M$ and adding just five extra 
program lines gives five new monsters. This is the advantage 
of using string arrays. 


Listing 


3 REM CORE + PORTS 2+3 


1060 LET Dfl=0 
1070 LET UR=0 
1080 LET TM=TM+I 


1350 LET TH=TM+I 

i**l ?f T rnd®?!*db then c-osub 171 

f*^0 IF TH>72 THEN PRINT "YOU SR 
I UERY THIRSTY." 

Ull ^f T ur>1 thIn GOSUB 1600 
1600 PRINT "VOU ORINK FROM THE P 

1610 LET TT=TT+TM/6 
1620 LET TM =0 
1630 RETURN 


1700 IF RND <i/3 THEN GOTO 1300 
1710 PRINT "R STRLECTXTE IS DXSL 
ODGEO RND CRASHES DOWN* 

1720 IF RND <.5 THEN GOTO 1750 
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1730- PRINT "DOING NO HRRM." 

I / 4-^ HSU. ! UKN 

1750 PRINT “HITTING YOU." 

1760 LET RS=RS-INT iRNDiSi-1 
1770 PRINT "YOUR RESISTANCE IS N 
OU RS; i” YOU DIE INSTANTLY." R 
ND R^ < i> 

1730 IF RS <1 THEN STOP 
1730 RETURN 

ISO© PRINT " R STRLECTITE FALLS 
ON TOP OF THE ”;P|; 

1810 LET DH=INT (RNDJ5J+1 

132© IF DM<3 THEN PRINT “ CUTTIN 

G IT . “ 

1830 IF DM>2 THEN PRINT “ AND IM 
PALES IT.“ 

184-0 W LET°N$ (14- TO 15)=3TR$ {URL 
NSC 14- TO 15) -DM) 

185© IF URL NS (14- TO IS) < I THEN 
GOTO 4-50© 

186© RETURN 


2000 LET N$=ii$ CINT (RNDilB) +1) 
2050 IF TT +TH/6<2 THEN LET N$C16 
TO 20)=“11111“ 

2060 IF TT+TM/S>2 THEN LET NSC 16 
TO 20)=STRf (URL N$C15 TO 19) Yl 
1111 ) 

2070 IF TM >72 THEN LET RS=RS-2 

2300_PRINT " THERE RRE STRLECTIT 
E-S LOOSELY AT! HOMED TO THE ROOF 
OF THIS CAUE.“ 

2310 LET DR=2 
2320 RETURN 

3000 LET N$=MS (INT (RNDUB) +1) 
3020 SCROLL 
3030 SCROLL 

304-0 PRINT RT £6,0;" SUDDENLY, R 
P$;“ COMES";TRB 2;"IN.“ 

305© LET SN =22 

4-510 LET TM=THy1 

4-54-0 IF UR = 1 THEN GOSUS 1S00 

5130 IF RND < «2 S-DR THEN GOSUS 17© 
0 


5570 PRINT RT 11,2;“YOU 
NT CTT +TH/6+.5) ; “ HOURS 


TOOK ", 1 
TO ESCAP 



ADVENTURE - HERO MAKER 


173 


5530 PRINT RT 14-,-4-; “YOUR HERO RR 
TING 15 ";HQ+CRSH 


Si10 PRINT " YOU HflUE BEEN IN TH 
E GfiUES FOR “;INT {TT+TM/6+.5);" 
HOURS , " 

6120 PRINT “RND YOU ERST DRRNK ” 
; INT (TH/6 + .5); " HOURS RGO." 


654-0 IF TM>72 THEN PRINT 
UE NOT HRD URTER FOR R 
IHE . " 


“YOU HR 
LONG T 


6590 IF TM >108 THEN GOTO 9650 
6600 RETURN 


6650 PRINT "YOU DIE FROH LACK OF 
URTER." 

6660 STOP 


3300 DIM 110 > S7) 

8360 LET^f1$(6) -"CRUE PYTHON - 1122 
3361500004-6“ 

3370 LET H*(7» =“CflUERN CROC * 1076 
4-3126002013“ _ 

8360 LET h$ t3) -‘*DEftTH-TURTLE818 / 
53222001038“ 

8390 LET M$ (9) =“ERRTH— UXPEfi « 104-3 
134-39000035 “ 

84-00 LET M*(10)=“CRUE BERR..«308 
573394-004-555“ 

9980 SLOU 


Hero Maker Conversion to Spectrum 

Hero Maker is easy to convert for use on the Spectrum as there 
is no graphic display. As it is a very long program you may have 
difficulty in fitting the complete version on to a 16K Spectrum, 
as 6.7K is used for the screen display. To condense it, use of 
multi-statement lines is a good idea. 

The SCROLL routine will have to be changed, using POKE 
23692,255. 

You can have a screen which does not clear, but continuously 
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scrolls to show the next bit of information. This will mean 
changing some of the PRINT AT statements. 

I do not think that there is anything to be gained by changing 
the string arrays to DATA statements, as this would mean con¬ 
siderable reworking of the program. 

One other change involves pauses. To avoid screen flicker, 
dummy FOR-NEXT loops have been used, and the number of 
loops needs to be increased on the Spectrum as it works faster. 
Alternatively, you could use PAUSE as the Spectrum does not 
flicker. 



Fairway 


Program occupies 2.7K 
Program runs in 3.6K 

To play 

The computer asks whether you wish to start, or see a con¬ 
densed version of the rules. 

When you start the game, a display of part of the course 
appears, with your ball in the bottom left, a square hole and 
patches of ‘grass’ consisting of grey patches and groups of 
asterisks (*). You ‘hit’ the ball by typing in the initial of the 
direction you wish to go: N, S, W, E, NE, SE, NW, SW, 
followed by the distance you wish the ball to go. 

Thus, to go north 20m, you type N20; to go south-east 45m, 
you type SE45. 

Note that there are no spaces in the INPUT. 

The field measures about 30m by 20m. However, there is a 
variable element in the strength of hitting - so it is not that easy! 

The grey grass is very thick and the ball loses momentum 
when it goes into it and doesn’t go so far. 

The asterisks represent springy grass and your ball may 
bounce away in any direction, including straight back from this 
grass. 

The ball also has to end in the hole; it will go straight over 
if you hit too hard. 

When you get the ball into the hole, your number of shots 
is given. There are six holes in the course and the lower the final 
score is the better. 
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Notes on listing 

10 GOSUB stating variables and rules. 

80 GOSUB new hole, field, etc. 

90-100 PRINT ball and hole. 

110-120 Reset move and input it. 

130-180 Set XI and Y1 (increase in X+Y each go) according 
to inputted value. 

190-200 Find how far ball meant to move. Make sure not more 
than 60. 

210 Reset V, pointer to next character in A$. 

220-430 Main loop. 

230 Print space where ball was. 

240-250 If ‘grass’ should be there, print it if ‘thick’, or goto 
sub-routine for ‘springy’ grass. 

260-270 If ball at edge of field, make it bounce back. 

280-290 Find new values of X+Y, making sure they are 
within limits of field. 

300-310 PEEK into ball’s new position to see if grass there. 
320 If ‘tough’ grass, slow ball down. 

330 Print ball in new position. 

340 Do again until shot finished. 

350 Add 1 to ‘shots’ counter. 

400 If ball ended up in hole, goto finished-hole routine. 
410-430 ResetXl+Yl and do another shot. 

440-490 Message on finishing 1 hole. 

Wait for short time (increase if desired). 

500-510 Increment hole counter and find total score so far. 

520 If all holes completed, goto end. 

530 New hole and goto new hole sub-routine, etc. 

550-590 End of game, total score given, new game offered. 
600-630 If ball in ‘springy’ grass then make ball go in random 
direction and put back grass when ball leaves. 

5000-5090 Print eight sections of ‘tough’ grass and eight 
sections ‘springy’ grass at random positions on screen. 
5100-5120 Print hole at random position but not too near ball’s 
starting position. Note hole cannot be covered by grass. 
5130-5180 Set variables. H = current hole, SC = number of 
shots for that hole, X,Y are co-ords of ball, XI + Y1 are the 
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N/'S and W/E velocities respectively. 

8000 Start of game. 

8000-8030 Initial variables. H = number of holes so far, SCO 
= total score, V = pointer to inputted shot, L= what is 
underneath ball - initially a space. 

8200-8250 Check if rules desired. Note that no flickers occur, 
as would occur if PAU S E were used. 

8300-8440 Rules. Modify, increase or omit as desired. 

For a full 18-hole course, change line 520 to 520 IF H> 17 

THEN GOTO 550 and alter line 8130. 

**• 

*** 


** ** 
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1 RE M FfilH U fiY 

2 REM CQPYRI5FST IS32 


10 GOSU8 £©00 
20 CL5 

80 GOSUB 5000 
90 PRINT RT Y,X; 
100 PRINT RT N.M: 

*a-i- 


■o" j 

•SHI¬ 


RT N + l.. M; 


110 DIM R$I4> 

120 INPUT R$ 

130 LET Yl=(fl$(l)= ,, S , ‘i - *” 

N” ) 

150 LET U =U +(YlO0) 

160 LET Xl=(fl$(U) ="E") -tRjai) =" 
U" ) 

180 LET U=U+(X1<>0) 

198 LET D=URL R$tU TO ) +INT (RH 
D *3) -1 

200 IF D > 60 THEN LET D=60 
21© LET U=1 


220 FOR F=1 TO D+(D=0) 

230 PRINT RT YX; " " 

240 IF L —136 OR L-8 THEN PRINT 
RT Y X; 

250'IF L=23 THEN GOSUB 600 
260 IF Y >20 OR Y <1 THEN LET Y1 


—Y 1 

270 IF X ;1 OR X > 30 THEN LET Xl = 


-XI 

280 LET Y=Y+Y1+(Y=0) - (Ys21) 
290 LET X = X+X1+ CX=©) -(X=32) 


300 PRINT RT Y,X; 

310 LET L=PEEK (PEEK 16398+256* 
PEEK 16399) 

320 IF L = 136 OR L=3 THEN LET F» 
F +3 

33© PRINT RT Y,X;"0” 

34© NEXT F 
350 LET SC=SC+1 

400 IF (X=M OR X=H+1) RND (Y=N 
OR Y=N+1) THEN GOTO 440 
41© LET Xl=© 

42© LET Y1=0 
430 GOTO 10© 


440 CL5 

450 IF SCO THEN PRINT "CQNGRftT 
ULRT TONS ** . 

460 IF SOS THEN PRINT •■UGH.,".; 
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4-70 PRINT ** HOLE IN "..SC 

480 FOR F=1 TO 50 

490 NEXT F 

500 LET H=H + 1 

510 LET 5CO=SCO+5C 

520 IF H > 5 THEN GOTO 550 

530 GOTO 2© 

550 PRINT RT 10..1; "THflTS IT.YOU 
R TOTRL SCORE IS "SCO 
560 PRINT RT 14,4; “ANOTHER GRME 

■? (Y/N) " 

570 IF 1NKEY$="Y" THEN RUN 
580 IF INKEY$="N" THEN STOP 
590 GOTO 570 


600 LET X1=INT <RND*3)-1 
S10 LET Y1=INT (RND+3)-1 
620 PRINT RT Y,X; 

630 RETURN 


5000 FOR F=1 TO 8 
5010 LET YC=RND*16+1 

5020 LET XC=RND*20+2 _ 

5030 PR IN T RT Y C , XC; "f' ; ffT JCS 
+ 1 ,xc-l; “iHii"; RT yc+2,xc; “S 

5040 NEXT F 
5050 FOR F = 1 TO 8 
5060 LET YC=RND*16 
5070 LET XC=RND*26 

5080 PRINT RT YC,XC; "*■*■"; RT YC + 1 
, XC; " * * * " ; RT YC +2 , XC +1; ''** " 

6090 NEXT F 

5100 LET M=INT (RND+20)+10 
3110 LET N = INT (RNDtlS) 

5120 PRINT RT N,M;"M ,, ;OT N+1,M; 

50*30 LET SC=0 
5140 LET X = 1 
5150 LET Y =21 
5160 LET X1=0 
5170 LET Y1=0 
5180 RETURN 


8000 LET H=0 

8010 LET SCQ=0 

8020 LET U=1 

8030 LET L =0 

3200 PRINT " FRIRURY" 

8210 PRINT 

8220 PRINT "PRESS ■■•■s"" TO STRRT 
, OR " ” R" *" TO SEE RULES." 

8230 IF INKEY$="S” THEN RETURN 
8240 IF INKEY$="R" THEN GOTO 83© 
0 
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8250 GOTO ©S3© 

8300 CL5 

©310 PRINT “ YOU HRUE TO COMPLET 
£ R 6 HOLE PUTTING COURSE IN R 
S FEU SHOTS" 

8320 PRINT "RS POSSIBLE. YOU MUS 
T GET THE BOLL - O - , INTO RN 
Y PRRT OF" 

8330 PRINT “THE HOLE - FI" jRT 5, 
i x * "m n 

8340 PRINT " YOU CRN HIT THE BRL 
L NORTH, SOUTH, UEST OR ERST, 

OR RNY " 

8350 PRINT COMBINRTION OF THESE 
RND YOU CRN CHOOSE HOU FAR TO H 
IT. " 

8360 PRINT " YOU ENTER THE INITI 
RL OF YOUR CHOSEN DIRECTION, TH 
EN THE" 

8370 PRINT "DISTANCE IN METRES. 
THE AREA OF THE SCREEN IS 38*20 
METRES." 

8380 PRINT " E.G.- TO GO NORTH 2 
0M ,PRESS” 

8300 PRINT " N20, THEN PRESS NE 

WLINE. TO GO SOUTH-EAST 9M, PRES 
S SE9." ^ 

8400 PRINT " GROSS LIKE THIS - M 
- IS THICK RND UILL SLOU DOUN T 
HE BALL." 

8410 PRINT "GROSS LIKE THIS - * 

- MAKES THE BALL CHANGE DIRECTIO 
N RANDOMLY.” 

8420 PRINT ”( PRESS NEULINE TO S 
TART. ) ” 

3430 INPUT A$ 

8440 RETURN 


COPYRIGHT S.ROBERT SPEEL 1982 
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Listing occupies 1.5 K 
Program runs in 2.5 K 

One lonely alien survived the attack on Earth and landed in the 
Pacific Ocean. It began to sink down a narrow gorge in the 
depth of the sea. How long can you, controlling the alien, keep 
it alive and avoid crashing into the rocky walls of the gorge? 

The alien has one weapon which can destroy anything 
directly below its feet. But this does not protect its ‘wings’. 
Every now and again, trails of bombs are launched from below 
(inverse asterisks). These can be destroyed by the alien’s 
weapon, or avoided. If they hit the alien, it is destroyed. There 
are also larger depth charges, shaped like this. 

Mm B 

OEPTH CHRR6E BOMB 

To destroy a whole depth charge, the alien must be centred 
exactly above it. 

The object is to survive as long as possible. 

Use keys 5 and 8 to move left and right respectively and 6 
to shoot at the area directly below the alien’s feet. At the end, 
when your alien is destroyed, your score (number of goes 
survived) is given, along with the current highscore. You are 
then offered another game. 

Remember that as the alien is under water, its reactions are 
rather sluggish. It moves half a second or so after you press the 
movement key. If you hold down a key too long, the alien may 
well blunder on to one wall of the gorge. Naturally, as the alien 
descends, the gorge gets gradually narrower. 
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Notes on listing 

10-60 Variables. HI = highscore; A — X co-ord of alien; GO 
= goes; A$ = space between walls of gorge; RS = co-ord of 
bomb, if any; X = X co-ord of left side of gorge. 

100-150 Print converging walls to straight gorge, so that the 
alien cannot escape to left or right of gorge. 

200 Beginning of main loop. Print left side of gorge, space 
length A$ (initially 10 squares, gradually decreases) then 
right-hand side of gorge. 

210 Change X by 1 or not at all. This makes the gorge zig-zag 
from side to side randomly. 

220 Print alien. Note that his arms stretch up when you move. 

230-270 PEEK at contents of squares directly under alien and 
if a bomb, wall or depth charge is there (i.e., not all spaces 
or newline characters) then goto end of program. 

300 Change X co-ord of alien according to key pressed. Note 
that putting this line here gives the delayed reaction to 
commands. 

310 Increase goes survived. 

320 Occasionally decrease A$, i.e., make the gorge narrower. 
Note that the minimum size may still let the alien through. 
Alter this as desired. IfLEN A$ is larger, then it is easier. 

330 Occasionally print depth charge on bottom line. As the 
frequency depends on LEN A$, more depth charges appear 
as the gorge gets narrower. Change this line to make depth 
charges more or less frequent as desired. 

400-430 If there is a bomb trail, increase RS randomly and 
print a new bomb. Start a new bomb trail if RND <.l. 
(Change this to make bombs more or less frequent, or 
perhaps dependent on LEN A$.) 

If bombs too far right, stop bomb trail. If bomb trail started, 
print current bomb. Note that as bombs may be shown to the 
left of the gorge, some advance warning is given. If you do 
not wish bombs outside the gorge, change line 430 to 


430 IF RS>LEN A$ THEN etc. 
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500 Scroll up screen to give idea that alien is moving down¬ 
wards. 

600 If 6 key pressed, blow up anything directly beneath feet 
of alien. Note that this does not protect the whole underside 
of the alien, just the middle squares. 

610 Redo main loop. 

1000-1210 Alien destroyed, made to flash on and off, score and 
highscore printed. Screen cleared and new game offered. 


Listing 


1 REM RLIEN DESCENDER 

2 REM COPYRIGHT 1232 

6.ROBERT SPEEL 
ID LET HI=0 
20 LET R =10 
30 LET GO =0 
4-0 LET «$ = '• 

50 LET RS=0 
60 LET X =7 
70 RflND 


ICO FOR F=0 TO 
110 PRINT RT F. 


120 NEXT F 
130 FOR F=6 TO 
14-0 PRINT AT F. 

' 150 NEXT F 


7 

F.i 


21 
7; ■ 


TAB 27-F.: 


TAB 12; •’ 


200 PRINT RT 2I,X 
210 LET X =X + INT (RND*3) 
)+{X=0> 


R*; ”1 
1 - C X = 15 


,RT 1,0; 


220 PRINT RT O,R;" M 
'XSHbS" ; RT 2R; ** »^".;PT 3,R; 

230 LET L=PEEK (PEEK 1639S+25S* 
PEEK 16399) 

240 LET L =L +PEEK (1+PEEK 16398 + 
256*PEEK 16399) 

2S0 LET L =L +PEEK (2+PEEK 1639S + 
256 rPEEK 16399) 

260 LET L =L +PEEK (3+PEEK 16393 + 
256*PEEK 16399) 

27© IF L > 0 AMD L<>236 THEN GOTO 
1000 


300 LET A=A+ iIMK£Y$s ,, 3‘') - iTNKEY 
$="S") 
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310 LET GO=GO+l 

320 IP RND<.025 AND LEW R$>S TM 
EN LET R$=R»«2 TO ) 

300 IP RNDs'lAEN R$ THEN PRINT 
RT 21,X+RND*LEN R$;"Jk" 

400 IP RS>0 THEN LET RS«RS+RND» 
7 

410 LET RSaRSt(RND<.l) 

420 IP RS)LEN R$+X THEN LET R5= 

0 

430 IF R5> 0 THEN PRINT RT 21,RS 


' 500 SCROLL 

600 IP INKEY$ ="©■■ THEN PRINT RT 
3,R + l; *•== •; RT 3,R + 1; RT 3,R 

+ 1 ; ** 

610 GOTO 200 


1000 FOR F=1 TO 10 
1010 PRINT RT 0,PL ,f 
"kHSJ" ; AT 2 , R; 

1020 PRINT RT 0,R; " 
RT 2 , R; " 

1030 NEXT P 


, " ; RT 1, R; 
RT 1,R; " 


1050 PRINT RT 20,0j"YOUR SCORE I 
5 "-.GO 

1060 IP GO)HI THEN LET HI«GO 
1070 PRINT RT 21,2;"HISCORE - "i 
HI 

1080 FOR Pal TO 200 
1090 NEXT F 
1100 CLS 

1110 PRINT "ANOTHER GRHE? (YSNi ” 
1120 IF INKEY$b"Y“ THEN GOTO 20 
1130 IF INKEYi s^’N** THEN STOP 
1210 GOTO 1120 



ALIEN DESCENDER 
Alien Descender Adaptation for Spectrum 




186 


ALIEN DESCENDER 


This program needs a lot of re-programming for the Spectrum, 
as in addition to adding colour and some sound, the object 
detection section, which checks if you have lost, must be 
changed. Also, some more interesting shapes for the bombs and 
depth charges will be user-defined. 


* 


Bo ra b 


Dep th 
Charge 


Notes on altered listing for Spectrum 

10 Hi is highscore, the picture will be sea blue (cyan). 

20 Set up user-defined characters for bomb, depth charge and 
sides of cavern. 

110, 140 and 200 The sides of the cavern are dark blue, and 
have a choice of graphics. 

Note that the spaces between the walls have a black ink 
colour even though no ink colour may be seen, as ATTR is 
used in the program. The rest of the screen, outside the 
walls, is made dark, which is impracticable on the ZX81 due 
to its slower speed of operation. 

240-260 We cannot PEEK on screen easily on the Spectrum 
and SCREENS will not recognize the existence of user- 
defined characters, so ATTR is used to check if you have hit 
anything. It considers anything which does not have black 
ink as a crash. Note that if you wish to change the colours, 
brightness, etc., you must change line 260 to 4 times the 
ATTR value of a blank square. 

330 Depth charge. 

430 Bomb. 

500 Spectrum equivalent of SCROLL. 

610 Short ‘movement’ sound. 

620-650 Firing sequence. ‘Laser’ sound - note same length as 
‘movement’ sound so that the game will not slow down each 
time you fire. 

1000-1020 Score and highscore shown prominently. 
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1040-1050 Exploding alien and random sound. 

1200-1260 Data. 1200 = bomb. 1210-1220 = depth charge. 
1230-1270 = sides of cavern. 

Listing 


-l REM Rlien Descender 

£ REM © S.Robert Speel 


19S£ 


* 


10 LET 
CLS 

S0 FOR 
REfiD b: 
b: NEXT 
30 LET 


hi=0: BORDER 5: PAPER 5 

f=l TO 7: FOR g=0 TO 7: 
POKE U5R CHR$ (143+F)+9 
q : NEXT f 
go =0 


4.0 LET a $ = " 

50 L ET r S 

70 LET y$e)($+x$: LET 
80 LET a=10 
90 RRNDOMIZE 


100 FOR f=0 TO 7 _ ^ , 

110 print INK i;RT f,0;y*< TO f 
) : CHR$ 11 A~~7 + TNT tRNC-*2^ > ; INK 0; 
TRB 27-f; INK 1;CHR$ (149+INT (R 
ND*2));y$( TO 30-LEN xt-f) 

120 NEXT f 

130 FOR f=8 TO 21 _ _ 

14.0 PRINT INK 1;RT f,0;y*( TO 7 
);CHR* (147+INT lRND*2t>J INK 0; 
TRB 19; INK 1;CHR$ (14-9 + INT (RND 
*2J t i y $ t TO 121 
150 NEXT f 


200 PRINT INK 1; HT £1,0; C'HRS 
(14-7 + INT (RND*2) ) ; INK 0;a*; IN 
K 1; CHR$ (14-9 + INT (RND*2));y$( T 
O 30-LEN (X$+a$) > 

210 LET X$:X$tS TO )+y$X TO INT 
(RND*3)) : IF LEN X$>14- THEN LET 
x$sx$(2 TO ) 

220 IF LEN X*<1 THEN LET X$=X* + 

230 PRINT HT 0 , a; " tmm ' > HT 1 , -a ; 

JUSEU; RT 2,a; 

240 LET L =8 

250 FOR f=0 TO 3: LET LsT+RTTR 
(3,a + f) : NEXT F 

260 IF l>160 THEN GO TO 100O 
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30© l_ET a=a+(INKEY$ = "8“) -IINKEY 

* , ” g " J 

310 LET 9 0=904-1 

320 IF RND<.025 AND LEN a*>6 TH 
EN LET a *=a $C2 TO ) _ 

330 IF RND <1 /LEN a$ THEN PRINT- 
INK 3; AT 21,LEN X$+RND*LEN a$;CH 
R$ 145;CHR* 14-6 


4©0 IF fS>0 THEN 


rs=rstRNDf 


4.10 LET rs=rs + (RND<.l> 

420 IF VS>LEN a $+LEM X$ THEN LE 
T rs =0 

430 IF r s >0 THEN PRINT INK 2; PTT 
21,rs;CHR$ 144 

500 PRINT AT 21,0: POKE 23692,2 
55: PRINT 

600 IF INKEY$="6" THEN GO TO 62 

0 

C-10 BEEP .04,0; GO TO 200 
1 620 PRINT AT 3 , a +1 AT 3, a* 

ell® ?li P ii® 15 ' 3a ' BEEP -V5.22 

64© PRINT RT 3.a-H;" 

65© GO TO 200 


1000 PRINT PRPER &;RT 20,0;"Your 
score is ";go 


1010 IF go >hi THEN LET hi=go 
1020 PRINT FLRSH 1;RT 0,a," _■ " 
; RT 1, a ; ; RT 2 , a ; ** JTm ** 

1030 PRINT PRPER 6;RT 21,1;" hi- 
score * ", hi 


104© FOP f =1 TO 100.- SEEP . 01 f RN 

D*50-RND*50. NEXT f 

1050 PRINT FLRSH 0 ; AT 0,a;" 

; RT 1, a ; " RT 2, a ; “ 

1060 FOR f=1 TO 600: NEXT f 


1100 CLS 

1110 PRINT "Another game? <y,'n>" 
1120 IF INKEY$ = ,, y" THEN GO TO 30 
1130 IF INKEY$="n" THEN STOP 
1140 GO TO 1120 

1200 DRTR 24,24,60,126,219,153,2 
4,0 

1210 DATA 0,7,15,31,127,15,3,0 
1220 DATA 0,224,240,248,254,240, 
192,0 



1238 DRTR 
2,254,255 
124-0 DfiTR 
8 , 255,254- 
1250 DATA 
1260 DRTR 
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248 , 252 , 255 , 254 , 346,25 

224,192 f 240,252 > 254 , 24 

1 , 15 , 7 , 3 , 15 , 31 , 7,3 
7 , 31 , 127,31 , 63, 7 , 31 , 63 



Asteroid Belt 


Listing occupies 2.2K 
Program runs in 3.3K 

To use 

You have a small spaceship which has blundered into the 
asteroid belt. Most of the ship’s functions have been disabled 
by a collision with a small meteor, leaving you with only the 
commands left and right. How long can you dodge the asteroids 
hurtling up at you before you are hit? 

You control your spaceship’s movement with the 5 and 8 
keys. In the ZX81 version the asteroids appear one at a time 
when you start, but as you go deeper into the belt, they come 
in twos and threes or even four at a time. 

A highscore feature is included, giving the top three scores 
so far. 
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Notes on listing 

10 Goto instructions and variables. 

20-190 Different asteroids. Note that often asteroids link up 
to form small planetoids. 

500-530 Choose asteroid to PRINT AT bottom of screen. 
Line 500 allows for increase after 50, 100 and 150 goes up 
to four asteroids per go. 

600-630 Increment go counter, move spaceship according to 
INKEY$, SCROLL the asteroids up the screen, and PRINT 
spaceship. 

700-740 Check if ship has crashed by considering three print- 
co-ordinates under ship. IF OK, goto 500. 

2000-2030 You crash. Explosion shown. 

2100-2260 Your score and highscore announced and up¬ 
dated. New game offered. 

5000-5050 Variables reset at start of each game, screen cleared 
and spaceship drawn for new game. 

7000-7090 Short rules. These can be expanded if you wish. 

7100-7160 Start first game. HI, H2, and H3 set to 0 - these 
are the three best scores so far. Clear screen and goto 5000. 


Listing 


X 

REM A5TEROID 

BELT 

a 

REM COPYRIGHT 

1982 


S.ROBERT 

SPEEL 


GOTO 7000 


20 

PRINT RT 

«■ 

30 

RETURN 


40 

PRINT RT 21 

• « lit 

50 

RETURN 


50 

PRINT RT 21, Ri 

• 2 •> 

m 

7© 

RETURN 


60 

PRINT RT 21,Rj 

ii «i 

■ 

90 

RETURN 


100 

PRINT RT 21, Rj 


110 

RETURN 


120 

V " 

PRINT RT 20,R; 

RT ; 

13© 

RETURN 


14-Q 

PRINT RT 20,R; 

*■ * ~;»t 

150 

RETURN 
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3.60 PRINT RT 20 ,R;"J| 

il 

i 70 RETURN 
188 PRINT RT 
"A"; RT 21 , fl; ** Til •* 
198 RETURN 


';RT 21 ,R; 
I**; RT Se,R 


580 FOR F=1 TO 1+(GO>50)+(6O>10 
0) +(GO >150) 

510 LET R = INT (RND+30) 

528 GQSUB 20+INT (RND+9) *20 
530 IF RND<.8 THEN NEXT F 

880 LET GO=90+1 

610 LET X=X+(INKEY*="8“)-(INKEY 
$ = "5“) +(X <1) —(X >28) 

628 SCROLL 

63© PRINT RT 9,X-1;" ";RT 1 

<B>"; ----- 


0 ,X; 


RT II,XJ" RT 12 ,X; 


700 LET O =PEEK (PEEK 13393 + 256 * 
PEEK ( 16399 )) 

710 LET R=PEEK ( 1 +PEEK 16390+25 
6 +PEEK ( 16399 )) 

728 LET 5 =PEEK ( 2 +PEEK 1 d 393+25 
6 +PEEK ( 16399 )) _ 

730 IF G+R+S >113 RND G+R+ 5 « 234 - 
THEN GOTO 2008 
74-0 GOTO 500 

£300 FOR 0=1 TO 10 _ 

2018 PRINT RT 10 , XJ" ^ , RT 11 ,X 

; •* "; RT 1 0 , X ; "^jjg";RT 9 ,X; 

»• - £FV ii , X I 

2020 PRINT RT 10 ,X + l; " **; RT 9 ,X; 

;• ; RT 10 ,X, " **; RT 11 ,X; ” 

£330 NEXT U 

2100 PRINT RT 5 , 5 ;"YOU CRR 5 HED"; 
RT 6 . 5 ;"YOUR SCORE IS " ; GO 
211 © IF GO >H 2 THEN LET H 3 =H 2 
2120 IF GO>Hi iHEN LET H 2 =ni 
2130 IF GO>Hl THEN LET Hl=GO 
214-8 IF GO <HI PND GO>H 2 THEN LET 
H 2 =GO _ . —__ 

2150 IF GO <H 2 RND Gu>H 3 THEN LtT 
H 3 =GO 


2200 PRINT RT 3 , 5 ; 

SO FRR = ";HI 
2210 PRINT RT 9 , 5 ; 
T = "H 2 


•HIGHEST SCORE 


1 itCuND HxGHtS 
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2220 PRINT RT 10,5;"THIRD HI6HE5 
T = ";N3 

2230 PRINT RT 12,3;"RNOTHER GO? 
(V/N) •' 

224-0 IF INKEY * = **Y" THEN GOTO 500 
© 

2250 IF INKEY*="N" THEN STOP 
2260 GOTO 224-0 

5000 RAND 
5©I0 LET X = 15 
5020 LET GO =0 
5030 CLS 

5040 PRINT RT 10, X; ** <B>"; RT 11, X 

, " 5-" 

5050 GOTO 500 

7000 PRINT ” ASTEROID BELT” 

7010 PRINT 

7020 PRINT " IN THIS GAME YOU HR 
UE TO RUOID" 

7030 PRINT "THE ASTEROIDS CONING 
TOWARDS YOU" 

704-0 PRINT "BY MOUING YOUR SPACE 
SHIP UTTH ” 

7050 PRINT "THE ""5"" AND ** "S'"' 
KEYS." 

7060 PRINT "YOUR SHIP LOOKS LIKE 
THIS:_ 

7070 PRINT RT S,10; ” <B> ";AT 9,11 

- H ^ M 

7080 PRINT "TO MODE, HOLD DOWN T 
HE 5 OR 8 " 

7090 PRINT "KEY CONTINUOUSLY." 

7100 PRINT " PRESS NEWLINE TO ST 
ART . " 

7110 INPUT A* 

7120 CLS 
7130 LET H1=0 
714-0 LET H2=0 
7150 LET H3=0 
7160 GOTO 5000 
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Asteroid Belt Conversion for Spectrum 


Due to the difference in PLOTting on the Spectrum, the ZX81 
listing has been extensively remodelled to make use of the 
Spectrum’s features. 

There are several differences noticeable while playing. The 
asteroids are lightly coloured on a black background, and 
initially only small ones appear. After a while, larger ‘moonlets’ 
appear, and then the asteroids appear in larger numbers. If you 
still survive, darker, easily missed asteroids appear, and 
flashing ones help distract you from the less conspicuous rocks. 

You move left and right using the 5 and 8 keys, and the top 
three scores (and your score) are given at the end of the game 
when you crash. 



Notes on listing 

10 Goto rules, variables, etc. 

20-40 Three different sizes of asteroids, PRINTed with user- 
defined graphics. 

500 PRINT 1 or 2 asteroids, depending on how long you have 
survived, and a random factor. 
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600-610 Increment go counter, move spaceship according to 
key pressed. Check if you hit asteroid. 

620 SCROLL. 

630-640 PRINT flashing spaceship and repeat main loop. 

2000-2010 Your spaceship explodes. ‘Blowing up’ effect done 
with user-defined ‘explosion’ graphic being PRINTed on 
spaceship in darker and darker colours until it disappears. 

2100-2240 Your score and top three scores updated and given. 
Another game offered. Note that if refused (line 2230), INK, 
PAPER and BORDER colours changed to normal, so you 
can see listing. If game accepted (line 2220) you do not see 
rules again, and highscore variables not reset. 

5000-5010 Reset go counter, and position spaceship for new 
game. 

6000 Set up user-defined spaceship, explosion and asteroids. 

7000-7030 Rules. Only shown at beginning of first game. You 
can add a ‘see rules’ option at the beginning of a new game, 
but you will have to move line 7050 (except the last state¬ 
ment) to somewhere else, e.g., 6500. 

7040 Sets the screen to a black outer-space view. 

7050 hi, h2 and h3 are the highscores and not reset after each 
game. 

9000-9050 Data for user-defined graphics used to make space¬ 
ship, asteroids and explosion. 


Listing 


1 REM 

2 REM 


RsterQi<i 
© s.Rober 


Be 11 
t Spee 


1982 


X«B GO TO 6)000 


20 PRINT FLASH ((go>I25i AND R 
ND < . 5) ; BRIGHT 1;RT 21,ajGHR* 1* 
S: RETURN 

30 PRINT BRIGHT 1,AT 2i,a;CHR$ 
14.9; CHR$ ISO: RETURN 
4-0 PRINT INK 4-; BRIGHT I; AT 20 
,a;CHR$ 151; ink 6;C-HR$ 153 ;RT 2 
1 ,a;CHR$ 152; INK 4-; CHRi 154-: RE 
TURN 
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500 INK 4- — (RND (.5 RND 9OM0IS.1 i3 
; GOER i: FOR f = 1 TO 1+(go>100)• 
LET a =INT <RND*30) : GO SUB 20 + 1 
NT (RND*<2+<go>50)>)*10: IF RND < 
«B THEN NEXT f 


600 QUER 0 ; LET go=goti; LET X 
X+ <INKEY*=" 8 ") - < INKEy$ = "5" ' + (x < 
48 X>28i: SEEP .005,0; BEEP .004 

610 IF hTTR <12, X)>10 OR RTTR < 
12, X+U >10 OR RTTR <12,X+2)>10 T 
HEN GO TO 2000 * 

620 POKE 23692,255; PRINT RT 21 


630 PRINT RT 9, X ; " **; INK 5; 

RT ia,X-lL“ FLASH 1 ;CHR* 14-4- 

; FLRSH 0;" FLASH ±; xnk 2 ; r 

T 11,x; CHR* 146; FLASH 0; CHR* 14 
5; FLASH 1,CHR* 147 
640 GO TO 500 


2000 FOR f =7 TO 0 STEP - 1 ; BEEP 
. 1 , f 

2010 INK f: PRINT AT li,x+l;CHR$ 
155: BEEP .01,-20: FOR g=i TO 3 
: PRINT RT 9+g,x;CHR* 155;CHR* 1 
55;CHR* 155;CHR* 155: NEXT 9 : NE 
XT f 

2100 INK 7: PAPER 2: PRINT RT 5, 
5; "You Crashed" ' "Vour score is * J 
; go' 

2110 IF go >h2 THEN LET h3=h2 
2120 IF go>hl THEN LET h2=hl. LE 
T hi =4 0 

2130 IF go<hl RND go>h2 THEN LET 
h 2 =g o 

2140 IF go <h2 RND go>h3 THEN LET 
h3=go 


2200 PRINT RT 6,5;"Highest score 
so far = “;h1;TfiB 5;"2nd Highes 
t = ";h2 ;ThB 5;"3rd Highest = "; 
h3 


2210 PRINT RT 12,3;"Another go? 
<y sm “ 

2220 IF INKEY * ="y" THEN GO TO 50 


2230 IF INKEY*="n 
BORDER 7: INK 0 
2240 GO TO 2220 


" THEN 
STOP 


PAPER 


7: 


II H 
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5000 RANDOMIZE : LET X=1S; LET 9 
O =0: PAPER 0: Ci_i> 

5010 PRINT AT I0,X+l;CHR$ 14-4-;RT 
il,x; CHRJ 14-5; CHRJ 14-5; CHR* 14-7 
5020 GO TO 500 


6000 FOR f=0 TO 11: FOR 9=0 TO 7 
: REftO a. POKE USR CHR* C14-4 4»f> + 
g,a: NEXT 9: NEXT F 


7000 PRINT " Asteroid Belt '* ' ' ” 
In this game you have to avoid t 
he asteroids cosing towards you” 

?Sf?‘5?ST' * the* 

^???e P ?S?I: ^?RT 

ff-j- ii,I*;CHRi 14-5; CMRt 14-5,CI~tR$ 

Ilk sy^w^sossrsossi^^^p* 

K5 8 E iNp5r t S*? t pnPEB e= border 0 

70IbVI+ hl|a: LET h2=0. -Er 1.3- 
0; GC TO 5000 _ _ _ 

<3000 DATA 0,42 ; 2B / 4-2 / 8,12& ,• bb ; 25 
5 255 ^ 255 60 , t>0,255 , Si55 t-c-,- 0 
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901© DRTfl 3,31,115 f £4-3,127, 31 .. i , 
1,192, 24-8 ,2©6 , 207 , 254-, 24-©, 12© , 12 


90i£® DRTR 24- , 62,93,127,21S.1S8,2 
4-, 0 , 14,123 , 22© , 183 , 139 , 23S , 121,3 
1 , 156, 118,218,45,253,86,24-S, 128 


903© DfiTfi 0,5,31,53,105,121,95,2 
54-, 255,215,54-, 27,30,15,1 ,© 

904-0 DATA 0,128,224-, 1S4-, 204,115, 
106,215,253,61,166,124,244,116,2 
16,176 


9050 DATA 16,130,40,17,40,130,16 
, 6© 



Amaze 


Listing occupies 1.8K 
Program runs in 2.8K 

To play 

It is degrading for a computer merely to draw mazes for us to 
solve like experimental animals. In this game you draw a maze 
and the computer solves it. 

On RUNning the program you are presented with a grey 
block, filling most of the screen. There is a blinking T in the 
top centre and this is your cursor. You move using keys 5,6, 
7 and 8. As you draw the maze a trail of Is appears. You exit 
the maze anywhere along the bottom line and just hold the 6 
key down until the computer’s ‘finger’ appears. The 
computer’s ‘finger’ is an inverse flashing + sign.The computer 
solves the maze by attempting to go downwards. If it can’t, it 
tries first left then right and then upwards. Each time it passes 
over a number it increases it by one. It always tries to go on to 
the lowest number, and this bias precedes all others. This is not 
the fastest way of solving a maze but it is certainly one of the 
most interesting and difficult to predict. 

When your computer finishes the maze it gives your score 
according to how long it took to solve your maze, as well as the 
current highscore. 

You must create your maze within about 150 goes and your 
number of goes taken is shown to the nearest ten below, in the 
bottom left of the screen. You may remove this restriction and 
go for an ultimate highscore. 
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5© 

A maze being drawn. 



iS© 


The maze is finished and the computer has started solving it. 
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Notes on listing 

30 Goto start of game and variables. 

40 D contains contents of squares around computer’s finger. 

50-190 Computer PRINTs at each location around its finger 
and then PEEKs at what is in it. These values are stored in 
D(l) to D(4). D(5) contains the contents of the square which 
the finger covers and D(6) the contents of the square two to 
the right of the finger, to counter the computer’s left bias. 
It might seem simpler to have all these lines in a FOR-NEXT 
loop, with the PRINT locations in a string array, but this 
works more slowly. 

400 Print number which was under ‘finger’ +1 over finger. 

410-440 Make sure contents of D are within acceptable limits, 
if any of the surrounding squares contain ‘ 1 ’ goto sub-routine 
to move that way. 

450 If next square but one to right contains a 1, and there is 
a way through, goto ‘go right’ sub-routine. This partly 
counterbalances the computer’s preference of left to right. 

600-640 Find lowest number surrounding a move in that 
direction. This has been separated from the loop in lines 400 - 
440 to speed up movement when there are lots of Is about. 

1000 Move down. 

1020-1030 General movement sub-routine. Increment ‘go 
counter’, check if end of maze reached. If so, goto 2000 . 

Redo main loop. 

1100 Move left. 

1200 Move right. 

1300 Move up. 

Note that this order gives the computer its downward bias, 
so that it will always seek the exit at the bottom, other things 
being equal. 

2000-2080 End of game. Print how long the computer took 
and highscore at present. Offers another go, which if 
accepted, re-runs the program, but without resetting RS, the 
highscore. 

9000-9060 Variables. RS = highscore, Y and X are initial 
position of cursor, A = initial number of moves you make 
in drawing the maze. Also maze framework drawn. 
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10 REM AMAZE 

20 REM COPYRIGHT 1902 

5. ROBERT SPEEL. 

30 GOTO 9000 
4-0 DIM 0(6) 

50 PRINT AT Y , X.; 

60 LET D(5)=PfeEK {PEEK 16398+2 
•58 +PEEK 16399) 

70 PRINT RT Y,X;"E" 

100 PRINT RT Y +1 , Xi 

110 LET 0(1)=PEEK (PEEK 16398+2 
56 *PEEK 16399) 

120 PRINT RT Y.X-1; 

130 LET 0(2)=PEEK (PEEK 16398+2 
56+PEEK 16399) 

14.0 PRINT RT Y , X +1; 

150 LET D(3 > =PEEK (PEEK 16398+2 
56*PEEK 16399) 

160 PRINT RT Y-l.X; 

170 LET D(4)=PEEK (PEEK 16398+2 
56+PEEK 16399) 

130 PRINT RT Y‘,X+2; 

190 LET 0(6)=PEEK (PEEK 16398+2 
56-tPEEK 16399) 


400 PRINT RT Y,X;CHR$ (O(5)+1) 
410 FOR F=1 TO 6 

420 IF O(F)<29 OR D(F)>37 THEN 
LET D(F)=37 

430 IF F < 5 RND O(F) =29 THEN GOT 
0 900+1004F 
440 NEXT F 

450 IF’ 0(6) =29 RND 0(3) <37 THEN 
GOTO 1200 

600 FOR F =30 TO 36 
61© FOR G =1 TO 4 

620 IF O (G) =F THEN GOTO 900+GJl 


00 

630 NEXT G 
640 NEXT F 


1000 LET Y=Y+1 

1010 LET GO =GO +1 _ 

1020 IF Y =18 THEN GOTO 2000 
1030 GOTO 50 


1100 

1110 


LET X =X -1 
GOTO 1010 
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1200 LET X =X +1 
1210 GOTO 101O 


1300 LET V =Y —1 
1310 GOTO 1010 


2000 

2010 

GO.; 

2020 

203O 

204.0 

2050 

0 

2080 

2070 

2080 


PRINT RT V,X;"B" 

PRINT RT 19,0; ''FINISHED IN 
GOES." 

IF GO >RS THEN LET RS=GO 
PRINT "BEST SO FRR = ”;RS 
PRINT "RNOTHER GO? (Y/N)" 

IF INKEY*<="" THEN GOTO 20S 

IF INKEY$»"N" THEN STOP 
CL S 

GOTO 9010 


900O LET RSaO 
R010 FOR F=1 TO 13 
9020 PRINT 

iwi n r u i T Mum iiMMnMi iiiwir* 

0030 NEXT F 
9O4-0 LET Y =0 
9050 LET X = 15 
9060 LET R=0 


9100 

9110 

3120 

9130 

5="5 

914-0 

$ = "7 

3150 

9160 

9170 

9180 

NT R" 

9190 


PRINT RT Y,X;"+" 

PRINT RT Y,X;"1" 

L. ET = X 4- V* 

LET X =.X+ V INKEY$ = "S" ) - ( INKEY 
' ) - l‘X >29) + fX <2) 

LET Y «Y + tINKEY* a"6") - fINKEY 


(Y <0 ) 

Y >IS THEN GOTO 9200 
ZOX+Y THEN LET R=R + 1 
ovl *^0 THEN GOTO 9300 
Rz-lOalNT (fl/10) THEN PRI 
20,0;R 
GOTO 9100 


) + 
IF 
IF 
IF 
IF 


0200 LET X = 15 
9210 LET Y =1 
9220 LET GO =0 

9230 Goto 4.0 


9300 FOR F=Y TO 19 
9310 PRINT RT F,X;"1" 
9320 NEXT F 
9330 GOTO 9200 



Vapours on Venus 


Listing occupies 1.8K 
Program runs in 2.8K 

To play 

You are in command of a spaceship orbiting Venus. A robot 
probe has been sent down to get data. However, a highly 
corrosive black gas is spreading on the surface and if it touches 
the robot, will destroy it. There is also a harmless grey gas, 
which may push back the black vapours. 

By using keys 5,6,7 and 8 to move the robot probe, you must 
keep it out of the black gas as long as possible. Sometimes the 
grey gas forms a safe path through the black gas. 

As the probe moves, it leaves a trail of asterisks as beacons, 
and these are what you see on screen. The beacon at which the 
probe is stationed flashes. 

A score of more than 50 seconds is quite good. 
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Notes on listing 

100-340 ‘Gas cloud’ loop. There are 4 clouds, 3 black, 1 grey. 
110-120 X(F) and Y(F) are the PRINT co-ords for each 
cloud.These change partly at random, but tend to follow the 
robot probe. To increase the difficulty, change the (RND 
C.5) parts of lines 110-120 to (RND C.2) or even (RND 
<. 1). This will make the clouds converge on the probe faster 
and more purposefully. Note that clouds cannot go off¬ 
screen. 

200-210 Print clouds, 3 black, 1 grey. 

220-230 Change robot probe’s position according to key 
pressed. Note that the robot cannot go further than the 
clouds in any direction. Note also that you move four times 
as fast as any one cloud. 

300-320 Check to see if probe in black cloud. If it is, goto 
end of game routine. 

330 Increment score in seconds. The real time per go is very 
nearly one second, sixty game seconds are approximately 
sixty-five real seconds. 

340-350 Repeat for all four clouds and then do again. 

1000-1140 End of game routine. 

1000-1020 Destroyed robot. 

1060-1080 Check to see if new highscore, print highscore if 
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suitably large highscore obtained, print congratulations. 
1100-1140 Offers another game; if accepted, resets all 
variables except HI, the current highscore. 

8000-8120 Variables. 

HI = highscore, X(F), Y(F) are PRINT co-ordinates of 
centres of ‘gas currents’. Note that all currents start fom the 
centre of the screen. 

9000-9100 Rules. Expand or omit as desired. 

Listing 


1 REM VAPOURS ON VENUS 

2 REM COPYRIGHT 1982 

5 - ROBERT SPEEL 

10 GOTO 8800 
10© FOR F»1 TO 4- 

110 LET X(F) *X (F)+(1-2*(RND <.8) 
) - CX (FI >281 + (X (F) <21 + (X (F) <X) - (X 
(F) >X) 

120 LET Y (F) =Y(F) +(1-2*(RND<.5) 

) + (Y (F> <Y ) - (Y (F) > IS) + (Y (F) <2) - (Y 
(F) >Y) 

200 IF F *1 THEN PRINT RT YtF),X 
(F) ; "M" ; AT Y ( F) * 1, X (F) ; “WHTJ R 

t y (fT+ 2,x (F); "mm" v v . 

204- IF F > 1 THEN PRINT RT Y (F ) , X 
(F) ; "IH" j RT Y ( F)+1 , X (F) ; R 

T Y (F) +2 , X (F) ; "■■■" 

si0 if f > i theTTTrint RT Y (F ) . X 


(F) 


_|";RT Y (FJ+1,X (F) ; "| 

T Y (F) +2, X (F) ; "■■■• 

£20 LET X =.X + ( INKEN 
^ss 'S* 1 ) + ( X < £ ) — (X >29) 

230 LET Y =Y + (INKEV't* ** 6 " ) — i INKEV 
4 = “7") + (Y <2) -(Y >1?) 


I 

“Y $ = " 8 ") -(INKEY 


300 PRINT RT Y.X.: 

310 IF PEEK (PEEK 16398+256*PEE 
K 16399)=128 THEN GOTO 1000 
320 PRINT RT Y,X," ",;RT Y..X.;"*" 

33© LET SC=SC+1 
34.0 NEXT F 
3S0 GOTO 10© 


1800 FOR F = 1 TO 10 

1018 PRINT RT Y,X; ,, B"; RT Y,X;"*" 
1820 NEXT F 
1030 CLS 
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104-0 PRINT "YOU SURUIUED FOR ",;S 
G; " SECS." 

1050 PRINT 

1060 IF SC>HI THEN LET HI=SC 
1070 PRINT "HIGH SCORE = ";HI 
1030 IF 5C=HI AND SC>50 THEN PRI 
NT "CONGRATULATIONS." 

1090 PRINT 

1100 PRINT "ANOTHER GAME? (WN.> ” 
ill© IF INKEY$ ="" THEN GOTO 111© 
1120 IF INKEY $ = "N" THEN STOP 
1130 CLS 
114-0 GOTO S010 


S000 LET HI=0 
3010 DIM X (4.) 

3020 DIM Y < 4-) 

3030 FOR F * 1 TO 4- 
3040 LET X (F) *15 
•3050 LET Y (F> =10 
3060 NEXT F 


3100 LET Y=1 
3110 LET X = 1 
3120 LET SC=© 
3130 RAND 


9000 PRINT '* UAPOURS ON UENUS" 
9010 PRINT 

9020 PRINT "YOU HAUE SENT A ROBO 
T PROBE TO UENUS. THE PROBE CRN 
BE ENGULFED BY THE SPREADING BL 
ACK CLOUDS." 

9330 PRINT "THERE ARE ALSO GREY , 
HARMLESS CLOUDS OF VAPOUR, AN 
D THESE MAY PUSH ASIDE THE BLACK 

GASES•" 

904.0 PRINT " HOU LONG CAN YOU KE 
EP THE PROBE TRANSMITTING BEFORE 
TME BLACK CLOUDS DESTROY IT?" 
SOSO PRINT " TO MOUE THE ROBOT f 
USE THE KEYS S, 6.. 7 AND 3 ON YOUR 
COMPUTER AT MISSION CONTROL j TH 
E ZX3000001." 

9060 PRINT 

9070 PRINT " (PRESS NEWINE TO ST 

ART) " 

9030 IF INKEYJs" ’* THEN GOTO 9030 

9090 CLS 

9100 GOTO 100 



Rabbits 


Listing occupies 3.8K 
Program runs in 4.9K 

To play 

This is a genetics game. You are a rabbit breeder and must 
make as much profit as you can within five years. You start with 
eight rabbits, out of which you keep two and sell the rest. These 
two produce eight offspring for the next year, and again you 
choose two. After five years, your profit is announced, along 
with the current highscore. 

The profit you make on a rabbit depends on its coat colour 
and type of ears. A patchy rabbit with an unsymmetrical 
pattern is suitable only as a pet, and is worth only a few pounds. 
A rabbit with a mono-coloured coat is worth about £10. Most 
rabbits have medium-sized ears, so rabbits with slim ears or 
wide ears are worth a little more than common ones. 

On running the program, you are presented with a shortened 
version of the rules. Press NEWLINE and after a short pause 
the first generation male rabbits will appear. You may select 
one out of the four by pressing key 1, 2, 3 or 4 as appropriate. 
The value of each rabbit is given. You then select a female 
rabbit from the four females which will be shown on the screen 
after you have selected the male. These will breed the next 
generation. 

Many colours are borne by recessive genes, such as ‘spotted’. 
‘Black’ is a dominant strain, so a rabbit with one ‘black’ and 
one ‘spotted’ colour gene will be black. However, some genes 
are co-dominant, such as ‘black-I-grey’ and thus a rabbit with 
‘black’ and ‘grey’ colour genes may be black or grey, or striped 
grey and black. 
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FEMRLES, GENERATION 3 
CHOOSE THE LUCKY RRBBIT 


Occasionally, a rarer colour such as ‘X patterned’ can occur 
and these are worth a lot of money. Often two colours will com¬ 
bine to provide a blotchy effect which is practically worthless. 

The ears are simpler, and can be wide, medium or narrow, 
narrow being the most dominant. However, a grey rabbit may 
occasionally have large grey ears, and a spotted rabbit may have 
spotted ears, both of which add to the rabbit’s value. Very 
occasionally, a rabbit throwback may have ‘asterisked’ ears, 
but these, as well as other coloured ears, are not usually 
inherited by the offspring. 

Notes on listing 

10 Gosub starting variables and rules. 

20 Z = 1 for males, 2 for females. 

30 CT = rabbit number. 

40-50 Beginning of loop to draw four rabbits. 

70 Go and find rabbit colour and ear-type. 

80 Print value of rabbit. 

100-120 Draw rabbit, with correct-shaped ears. Note that in 
these lines only black squares (inverse spaces) have been 
replaced with inverse full stops for ease of counting. When 
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you type in these lines, replace inverse full stops with black 
squares (e.g., if nine inverse full stops are shown, type in 
nine inverse spaces). Do not do this with any other lines. 

150 Draw rabbit’s coat in correct colour on rabbit. 

160 PF is the profit so far. 

170-180 Redo for other rabbits. 

200-250 Write title, wait for rabbit to be selected, refusing 
illegal entries. 

260 Subtract cost of rabbit being kept from profit - you can’t 
sell your rabbit and keep it! 

270 Store rabbit’s genes in L$. 

280-290 Clear screen and repeat for female rabbits. 

300-310 Increment generation counter and finish if more than 
five years. This can be changed as desired. 

500-570 Breed eight offspring with characteristics chosen at 
random from each parent, but making sure always one gene 
from male, one from female parent, not both of a pair from 
just one parent, as rabbits do not form clones. 

580 Do another generation. 

700-790 End of game, showing profit, highscore and offering 
new game. If new game accepted, all variables reset except 
highscore, HI. 

1000 Go and find rabbit’s visible characteristics. 

1010-1040 A$, B$, C$, D$ are rabbit’s coat colours and these 
are swapped around so that if a rabbit is patchy, it won’t 
necessarily have patches in the same places as another patchy 
rabbit. 

1050-1060 Put ‘ear genes’ in X$( 1) and X$(2). 

1100-1150 Select ear-size according to ‘ear genes’ and some 
luck. 

1500-2550 Select the actual colours of the rabbit, A$ and D$ 
according to colour, genes and random chance (i.e., if colour 
genes are ‘dotted’ and ‘arrowed’ the rabbit will be dotted, or 
patched in dots and arrows. You cannot tell which in 
advance, but it cannot be grey for instance. 

Note that if A$ and D$ are the same, the rabbit has one 1 
colour (or is striped) but if A$ and D$ are different, the 
rabbit is randomly patched. For grey patches, you may use 
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graphic shift A or graphic shift H, but be consistent. Do not 
change from one to the other: if you use graphic shift A for 
one, you must use it for all the others or the program won’t 
work properly. 

8000-8220 Starting variables. 

HI = highscore, L$ contains genes of selected breeding pair 
of rabbits, K$ contains the possible ‘colour genes’. 

N$ contains possible ‘ear genes’. 

GN = generation number. 

X$ = ear genes of one offspring. 

M$ contains all the genes of all the rabbits in a generation. 
These are selected for the first generation randomly from 
K$+N$ in lines 8100-8170. 

V = value of rabbits in one generation. 

PF = profit, initially 0. 

The program returns to line 20. 

9000-9110 Rules, omit or expand as desired. 


Listing 

1 REM RABBITS 
10 GOSUB 9000 
20 FOR 2=1 TO 2 
00 LET CT =0 

4-0 FOR X =0 TO 15 STEP 15 
5© FOR Y=© TO 10 STEP 10 
60 LET CT =CT +1 
"70 GOSUB 1000 

50 PRINT RT Y..X.; U tZ,CT) 

100 PRINT RT Y.. X+7.; U$ : "V\; RT Y + 
1 , X+7 ; J*J RT Y +2 X + * • "m ~ J 

Y+3, X.; ", 

110 PRINT RT Y+4-.X 
” AT Y+5jX “|- — 


I"RT Y+6,X; 


120 PRINT AT Y+7..Xr‘ 1 TBi”; 

rt y+ 3 . x-t-i; " B BBU Tfc ";ct 

150 PRINT RT Yf2,X+3;B$;RT Y+3 . 
X + &; c|; rt Y+4.,x:c$;R$.;B$;RT y +5, 
X.; C$.; RT Y+6.. X+5, B$; R$ 


160 LET PF=PF+U (2., CT) 
iTO NEXT Y 
ISO NEXT X 
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2©0 IF Z = 1 THEN PRINT RT 20 ..0;" 
R L. H S ” I 

310 IF Z=2 THEN PRINT RT £0,0.; ” 
F~MRL.ES” ; 

320 PRINT GENERATION ” . GN 

230 PRINT "CHOOSE THE LUCKY RREi 
SIT” 

24.0 LET P $ = INKEY $ 

250 IF P $ > “ 4 " OR P$<"1” THEN GO 
TO 240 

260 LET PF=PF-U(2,URL P$) 

270 LET L*(Z)=M$(Z,URL P$) 

2S0 CLS 
290 NEXT Z 


3®0 LET GN=GN+1 

310 IF GN > 5 THEN GOTO 700 


B00 FOR F»1 TO 2 
510 FOR G=1 TO 4 
520 FOR H = 1 TO 4 

530 LET <F,G,H)*L*<i,H) _ 
540 IF RND<.5 THEN LET M*(F,G,H 
■) =L* (2 , H) 

550 NEXT H 
560 NEXT G 
570 NEXT F 
580 GOTO 20 


700 CLS 

710 PRINT "AFTER 5 YEfiRS..." 

720 PRINT 

730 PRINT "YOU HflUE HADE £”;PF; 
” PROFIT.” 

740 IF PF >HI THEN LET HI=PF 
750 PRINT "BEST SO FRR = ",HI 
760 PRINT RT 20,0; "ANOTHER GAME 

7 (Y/N) " 

770 IF INKEY$=”N” THEN STOP 
730 IF INKEY #="” THEN GOTO 760 
790 GOTO 8010 


1000 GOSUB 2000 
1010 LET B*=A*+D$ 

1020 IF RND <.5 THEN LET 
1030 LET C*=B$+B$+B$+B$ 

1040 IF RND <.5 THEN LET C$=R*+B* 
+D*-FB$+D*+A$ 

1030 LET X$(1)=M$(Z,CT,3) 

1060 LET X$(2)=M$tZ,CT,4) 

1100 LET U* = ”l" 

1110 IF X*(l)=" " OR X $(£)=” ” T 

HEN LET J*=" " 
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graphic shift A or graphic shift H, but be consistent. Do not 
change from one to the other: if you use graphic shift A for 
one, you must use it for all the others or the program won’t 
work properly. 

8000-8220 Starting variables. 

HI = highscore, L$ contains genes of selected breeding pair 
of rabbits, K$ contains the possible ‘colour genes’. 

N$ contains possible ‘ear genes’. 

GN = generation number. 

X$ = ear genes of one offspring. 

M$ contains all the genes of all the rabbits in a generation. 
These are selected for the first generation randomly from 
K$+N$ in lines 8100-8170. 

V = value of rabbits in one generation. 

PF = profit, initially 0. 

The program returns to line 20. 

9000-9110 Rules, omit or expand as desired. 


Listing 

1 REM RRBBIT5 
10 GOSUB 900® 

£0 FOR 2=1 TO 2 
30 LET CT=0 
4.0 FOR X=© TO 15 
50 FOR Y = © TO 10 
60 LET CT =CT +1 
70 GOSUB 1000 
60 PRINT RT Y X.; ” 


STEP 

STEP 




15 

1© 


Z, CT) 


100 PRINT RT Y.. X+7.; "V 
1, x+7 ; J *i .; RT Y-t-S ,. x + i; ”« 
RT Y+3, x.; 


110 PRINT R T Y+4 
BTY+SjX; ”, 



" ; RT Y+6.X; 


RT 


120 PRINT 
RT Y-f-S , X + l; 

150 PRINT RT 
X + 3 t ;C$;RT Y+4 
X.; Hj,; C$.; RT 


Y +7 . X j” Ti 
b **i ".-CT 

Y+S,X+3; B$RT 
C$j R$.I B$; RT 
i'+6.. x +5.. B* .; R$ 


Y 4-3 . 

Y +5 , 


160 LET PF=PF+Uf2,CT) 
IT© NEXT Y 
ISQ NEXT X 
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200 IF 2 = 1 THEN PRINT PT 29.,©.;" 
MALES" .: 

ai0 IF Z=2 THEN PRINT AT 2©.,©.;" 
f-mrl-ES" ; 

aa© PRINT GENERATION " ; GN 

230 PRINT "CHOOSE THE LUCKY RRE 
SIT" 

24-0 LET P $ = INKEY $ 

2S0 IF P$>"4" OR P*<"1" THEN GO 
TO 24© 

26© LET PF=PF-U(2,URL PJ) 

270 LET L$(2)=M$<2,URL P$) 

280 CL5 
290 NEXT Z 


3©0 LET GN=GN+1 _ 

31© IF GN > 5 THEN GOTO 700 


B0© 

510 

520 

o30 

540 


FOR F»1 TO 2 

FOR G = 1 TO 4 

FOR H=1 TO 4 

LET M$ (F..G..H) =L* <1,H) 

IF RND<.5 THEN LET M$ 


■) =l* ta.Hi 

550 NEXT H 
560 NEXT G 
570 NEXT F 


580 GOTO 20 


( F ., G .. H 


700 CLS 

710 PRINT "AFTER 5 YEARS..." 

720 PRINT 

730 PRINT "YOU HRUE HADE £";PF; 
" PROFIT." 

740 IF PF>HI THEN LET HI=PF 
750 PRINT "BEST 50 FAR = ";HI 
760 PRINT AT 20.. 0; "ANOTHER GAME 
7 (Y/N) " 

770 IF INKEY$="N" THEN STOP 
780 IF INKEYf="" THEN GOTO 76© 
790 GOTO 8010 


1000 GOSUB 2000 
1010 LET B$=A*+D$ 

1020 IF RND<.5 THEN LET Bi=Di+Af 
1030 LET C$=B$+B$+B$+B* 

1040 IF RND <.5 THEN LET C$=A*+B* 
+D$-KB$+D*+A$ 

1050 LET X$ ( 1) =M $ (Z, CT 3) 

1060 LET X$ (2) =M$ (Z,CT., 4) 

1100 LET ■_>* = "!" 

111© IF X*(l)=" " OR X$(2)=" " T 

HEN LET U*=" '* 
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lisa if 

THEN LET U$ = 

1130 IF RND 

ND < « 5 THEN LET U$ = “j 
114-0 IF RND 

ND < . it THEN LET U* = “L 
1130 IF RND<.05 THEN 


RABBITS 

FIND X*Cfi) -»■'* 

= RND R 

ill 

U* = ‘‘B“ RND R 
LET = 


1300 IF R$oD* THEN GOTO 1300 
1510 LET UT = 1© 

1520 IF R* = , •B ,, OR R$ = "B" THEN LE 
T UT=15 

1530 IF Ri="B“ OR R$="H“ THEN LE 

T WT =30 

154-0 GOTO 1510 


1600 LET WT =1 
161© IF U* = ” 

1620 IF U* = "l 
1030 IF d* = "! 

164-0 IF W*a"3 

1650 IF d$="L 
1660 LET W(Z J CT)=WT 


THEN LET UT=WT+2 
THEN LET UT=UT+S 
THEN LET UTaUTilS 
THEN LET UT=UT-i-5 
THEN LET UTsUT+8 


3000 LET 

2010 LET F$=M$ (Z.. CT,2> 

2030 LET R$aE$ 

2030 IF E$=F$ RND E**”B" RND RND 
<,5 THEN LET Rt^'H” 

204-0 LET D*=R« 

2050 IF E*=F* THEN RETURN 


2100 IF E*="B" OR F*="B" THEN GO 
TO S300 

2110 IF E* = "Uf” OR = THEN GO 

TO 2500 

2120 IF E* = ”B” OR F$ = "B” THEN GO 
TO 2200 

2150 LET R* = "B" 

2160 LET D*=R* 

2170 IF RND<.5 THEN LET 0**"B" 
2160 RETURN 


2200 LET R$ 

2210 IF E*= 

TO 2250 
222© LET D*=R$ 

2230 IF RND<.5 THEN LET D$="B" 
2240 RETURN 
2260 LET R* = "B" 

2260 LET D*=R$ 

2270 RETURN 


• i n 11 


OR F$ = "l 


THEN GO 
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3300 LET 

3310 LET D$sR$ 

2320 IF E*="^“ OR F$="^- THEN ©O 
TO 2400 

3330 IF E$="B“ OR F* = “B" OR E* = " 

? “ OR F*=”B” THEN RETURN 
340 IF RND <.5 THEN LET D*="B“ 
2350 RETURN 


2400 LET CH=RND 

2410 IF CH<.3 THEN RETURN 

2420 LET R* = “SI“ _ 

24.30 IF CH < . 5 THEN LET R$ = "W" 

2440 IF CH>.9 THEN LET 

2450 GOTO 226© 


2500 LET = 

2510 LET D$=R$ _ 

2520 IF ES = “B“ OR F$ = “B“ THEN RE 
TURN 

2530 IF <E* = "B" OR F$ = *’B") RND R 
NO < . 5 THEN LET D$ = “B , ‘ _ , _ 

2640 IF <E* = ”B" OR F*="B"> RND R 
NO < . 5 THEN LET D* = "B" 

2550 RETURN 


3000 

5010 

5020 

3030 

3040 

0050 

3060 

3070 


LET H1 ss0 
DIM L*(2^40. 
LET Ki«T^“ 
LET N* = "l 
LET GN*1 
DIM X$ 12) 

DIM M*C2,4,4) 
RRND 


.*» 


3100 FOR F=1 TO 2 
S110 FOR G = i TO 4 
3120 FOR H = 1 TO 2 

5130 LET H$(F,G ; H.) =K$(INT <RND*5 

3140 LET M*(F,G,H+2>=N$(INT (RND 
*3i +1) 

5150 NEXT H 
3160 NEXT G 
3170 NEXT F 


3200 DIM U<2,4) 
5210 LET PF=0 
3220 RETURN 


9000 PRINT "RABBITS" 
9010 PRINT 
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9020 PRINT " YOU RRE A RRBBIT BR 
EEDER UITH S YOUNG RABBITS. ERG 
H YEAR, Y'OU MRY KEEP 2 YOUNG FOR 
BREEDING ," 

9030 PRINT "AND SELL THE RE5T TO 
R PET SHOP. THE PRICE OF R RRBB 
IT DEPENDS ON ITS COLOUR AND ER 
R SIZE." 


904.0 PRINT "RABBITS UITH ERRS TH 
RT RRE THIN OR UERY UIDE COST MO 

pg TTHRN** 

9050 PRINT "NORMAL-ERRED RABBITS 
, THOSE UITH UNUSUAL COLOURING A 
RE EXPENSIVE UHILE PATCHY ONES A 
RE CHEAP." 


90S0 PRINT " 
BE 1 MALE 
TO BREED THE 
9070 PRINT 


EACH YEAR , YOU CHOO 
AND 1 FEMALE RRBBIT 
NEXT GENERATION." 


9080PRINT "(PRESS NEULINE TO ST 
9090 IF INKEY*<“ " THEN GOTO 909 

9100 CLS 
9110 GOTO 0000 



Base to Decimal Converter 


Program runs in IK 
To use 

This program converts numbers in any base (binary or above) 
to decimal. The program first asks for the number you wish to 
be converted to decimal. Next you input the base in which your 
number is expressed. After a short wait (up to ten seconds for 
a long number) the decimal equivalent is given. 

Bases larger than base 10 need special digits for decimal 
figures - ten, eleven, etc. - as 10 in (for example) base 15 is 15 
in base 10,11 is 16 in base 10 and 12 is 17 in base 10. Generally 
the extra digits used in these situations are capital letters. So 
counting in, for example, base 12, you write 1, 2, 3, 4, 5, 6, 
7,8,9, A, B, 10,11.... 

The program can accept these letters. So if you wish to know 
what FF (hexadecimal) is in base 10, input FF for your 
number, and 16 for the base. 

Note that the program is accurate to eight significant figures. 
Notes on listing 

10-50 Input number and base and clear screen. 

60 PRINT beginning of answer. 

70 T will be the answer. 

100-120 Starting from the right of the number, the first digit 
is always units, the second is the number x the base, the third 
is the number x the base squared and so on. So, in base 10, 
the first digit to the right is units, the second tens, the third 
hundreds, etc. 

The program calculates from the first digit, knowing the 
length of your number. 

200 Answer in base 10 correct to 8 significant figures. 
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Listing 


i REM BASE TO DECIMRL 

CONUERTER 

a REM COPYRIGHT l93£ 

S.ROBERT SPEEL 


10 PRINT "INPUT 1ST NUMBER 1 
£0 INPUT R$ 

30 PRINT "UHRT BASE IS ITT’ 
4-0 INPUT B 
5© CLS 

60 PRINT fit; 11 IN BRSE ";B; S 
70 LET T=0 


100 

110 

CODE 

120 


FOR F=1 TO LEN fi* 

IF R*(F)>”0" THEN LET T 
0$<F)-28)*B*«(LEN R*-F> 
NEXT F 


20© PRINT T;" IN BRSE 10" 


T+ C 



Decimal to Base Converter 


Program runs in IK 


To use 

This program converts numbers from base 10 to any other base. 
First input your number, then the base you wish to convert to. 
The program will then convert the number, showing its 
calculations. 


DECIHflL 

NUMBER = 

4-3151 

BOSE 

NUMBER 

REMAINDER 

4 

4-3151 

3 

4- 

10787 

3 

4- 

2696 

0 

4- 

674- 

2 

4- 

168 

0 

4- 

4-2 

2 

4- 

10 

2 

4- 

2 

2 

4-3 IS 1 IN BRSE 4- 

IS 22202033 


The program can cope with bases 
letters for the extra digits. 

larger than 10, and uses 

DECIMRL 

NUMBER = 66316 

BRSE 

NUMBER 

REMRINDER 

16 

663 IS 

E 

16 

414.4 

8 

16 

259 

3 

IS 

16 

0 

IS 

1 

1 


66318 IN BRSE 16 IS 1S3QE 
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DECIMAL TO BASE CONVERTER 


Notes on listing 

100 A$ will be the number. 

110-140 Input decimal number and desired base. 

210-220 Print decimal number and column headings. 

250-270 Calculated digits by dividing number by base and 
keeping remainder. Print number, base and remainder in 
columns. 

280 Repeat if unfinished. 

300-310 Print answer. 


Listing 

1 REH £>EC TO BASE CONVERTER 
COPYRIGHT S.R.SPEEL 

1©0 LET R$ = ”“ 

110 PRINT "* NUMBER? ’* 

130 INPUT n 

130 PRINT "BASE TO CONVERT TOT” 
14-0 INPUT B 

300 CLS 

31© PRINT "OECIMRL NUMBER = ";R 

330 PRINT "BRSE”;TAB 10; ' NUMBER 
";TRB 30,; "REMAINOER" 

330 LET C=fi 

350 LET A$=CHR$ (28+R-INT (FL'B) 
*BJ +R$ 

360 PRINT B; TAB 10;A.;TAB 30; A$ ( 
1 ) 

270 LET A = INT tPL'Bi 

280 IF fi>0 THEN GOTO 350 

300 PRINT 

310 PRINT C; ” IN BRSE " : B: '* IS 

";r* 



Quadratic Equation Solver 


Listing occupies 1.4K 
Program runs in 2.5K 

This program solves any quadratic equation with real roots 
using the quadratic formula. 

It also writes out step by step the working out by which the 
answer is achieved. This means that a problem can be typed in, 
and then the answer and working copied directly into a maths 
homework book ... or for those with scruples, it becomes a 
way of really checking the maths homework. 

The program asks you to input A, B and C for the general 
quadratic 

AX ; +BX+C = 0 

and starts writing up the solution immediately. 

Since many quadratic equations have no real solution, 
especially those in maths homework questions, if such an 
equation is entered the program will say that it is unsolvable. 
It also gives an explanation why. 

TO SOLUE THE OUADRATIC:- 
3.XX + 2X + 6 =© 

USING THE QUADRATIC FORMULA, 

S 


s 
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QUADRATIC EQUATION SOLVER 


SINCE 4--72 =-S3 , 

THIS EOURTION HRS NO RERL ROOTS, 
05 THE SOURRE ROOT OF -S3 
IS IMAGINARY. 


TO SDLUE THE OUfiORflTIC:- 
-13XX+26X+16.4-53=0 
USING THE QUADRATIC FORMULA, 

—as 

X = -28 

-as 

-as -as 


TO 50LUE THE OURDRRTIC:- 

2xx+ — 1X + — 3=0 

USING THE OURDRRTIC FORMULA, 
Xs — 

4 . 

x — lies: 

mmmmmmammmmmm 

4 - 

X = l+S OR ^5 
4 - 4 - 


HENCE X = 1.5 OR -i 
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Notes on listing 

100-170 ‘Introduction’ prompts for A,B,C in equation. 

The computer uses AXX instead of AX * * 2 since it looks 
less confusing. This is explained in the program. 

A = X squared coefficient 
B = X coefficient 
C = constant 

180 Clear screen before starting to solve equation. 

190 A$ contains the line we will use to underline things, for 
square root signs and long division signs. 

200-520 Work out answers, writing down each step. All the 
LEN(STR$A+LEN STR$B . . . information looks very 
complicated. Most of it is simply to ensure that the square 
root signs and the long division signs are the right length. 
This length varies according to how well the equation works 
out; one with whole number solutions will need only short 
lines, while an equation with awkward roots such as 3.263 
and 2.964 will need longer lines. 

Compare the examples given and see how much the lengths 
vary. 

Lines such as 450 round down the number to three decimal 
places. 

If you wish to round off rather than round down change all 
the relevant lines to INT(0.5 + . . .), so that line 450 would 
become: 

450 LET XA = INT(0.5+ 1000*(-B + D)/(2* A))/1000 

Note that in lines 350 to 370, we seem to waste a line, since 
350 and 370 could be combined into one line. However, the 
ZX81 would crash if it tried to solve the square root of a 
negative number. Thus 360 checks for this and sends control 
to line 600 if a negative number is to be rooted. 

Note that if there is just one solution, the computer will not 
print it twice, but just once. One solution is obtained when 
the number inside the square root sign is zero. Line 480 
checks for this and alters B$ (the answer) accordingly. 
600-630 If no real roots, say so and explain why. 
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QUADRATIC EQUATION SOLVER 


1 REM OURDRRTIC EQURTION 

w ° L 2 E REM COPYRIGHT 1982 

3 REM S.ROBERT 5PEEL 

100 PRINT " OURDRRTIC EOURTION 
SOLVER" 

110 PRINT 

120 PRINT "FOR THE OURDRRTIC RX 


X BX +C s0" 

130 PRINT " (WHERE XX IS X SOUR 
RED) " 

14.0 PRINT “INPUT R,B,C.. UITH NE 
WLINE RFTER ERCH." 

ISO INPUT R 
160 INPUT B 
170 INPUT C 


180 CLS 
190 LET R*=" 


S00 PRINT "TO SOLUE THE OURDRRT 
IC : 

210 PRINT " ";5TR$ R;”XX+",STR 

* B,"X+";STR* C.."=0" 

220 PRINT " USING THE OURDRRTIC 
FORMULR . " 

230 PRINT 


240 LET D=LEN (STR* R+STR* B+ST 
R$ B+STR* C>+7 

250 PRINT TRB 3+LEN STR* B ; " + I" 
;r*u TO D) 

270 PRINT T RB 3;Rt( TO D+5) 

2S0 PRINT TRB LEN fit ( TO D+4W2 

; 

'290 PRINT 

300 PRINT TRB 3+LEN STR* B;“ + l“ 
,:Rf( TO LEN (STR* (B+BJ+STR* (4* 
R*C))+1) 

310 PRINT "X*-"; B.; B*B; “ 

320 PRINT TRB 2;R*( TO 4 +LEN (S 
TR$ B+STR* (B*B>+STR* (4*R*C>>) 
330 PRINT TRB 5+LEN STR* B;2*R 
340 PRINT 

350 LET D=B*B-4*R#C 

360 IF D < 0 THEN GOTO 600 

37© LET D=INT <10©0*SOR D)/10®@ 
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%* » 


4®Q PRINT “x="; —B j D; " OR 

_ g • »» M ■ Q 

410 LET E =LEN (STRJ -B+STR* D) + 

'4.20 PRINT TAB 2;RS( TO E) " 

"; fi$ ( TO E) 

430 PRINT TAB (SfE)/2jA#2;TAB 4 
+e+ ia+E) ,--3; 2 *r 
440 PRINT 

X R = I NT (1000* (-B+D) ✓ (2* 

R ))/1000 

Pn ?®1000 XB=1NT ( 1000 * ( -B-D) s ( 2 * 

STR4 XB T B *="X=“ +STR* XA+” OR " + 
$ 4 XR IF D= ® THEN LET B$=“X="+STR 

500 PRINT ” HENCE ";B$ 

HI 3TOp T R$( T ° LEN B * +7> 

600 PRINT 

cf”=» R D?"T“” S1NCE " ;B * Bj 

3 *®.PRINT "THIS EOURTION HRS NO 

OP E ^ d ROOT5 ' 03 THE square root 

630 PRINT "IS IMAGINARY." 


Notes on conversion for Spectrum 

The program can be typed in directly from the ZX81 listing. 
However, improvements can be made. The thick dividing line 
and square root sign can be replaced with thinner lines using 
DRAW. The program can be reduced by using multi-line state¬ 
ments. 



Right-angled T riangle 
Solver 


R (4) RIGHT RNGLED 



A (2) 


INPUT SIDE R(l) ...0 
INPUT SIDE RO).*.© 
INPUT SIDE R *3) . . . 1.24- 
INPUT ANGLE A (4.)...© 
INPUT ANGLE A(51...27.3 


A (4.) 



A (2) 

USING ’’SUM OF ANGLES IN A 
TRIANGLE = 130 DEGREES", 

A (4-J =90-A (5) , 

A (4.) =62.1 

USING SIN A (4.J =A (2) /A (3) 

A (2) =A *3) *SIN A (4) 

A t2) =1.0953694. 

USING PYTHAGORAS , 

R (1) i*2=ft(3) ■**2—A <2) **2 
R {1)=SOR i 1.5376-1.2009297) 

A(1)=3.53023297 

i. PRESS NEWLINE TO SEE ANSWERS) 
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ft <4.) 



ft (2) 

SIDE ft <i> X0.SS 
SIDE ft(2)*1.096 
SIDE ft =1.24. 
ftNGLE ft (4-J =62.1 DEGREES. 
ftNGLE ft<5)=27.9 DEGREES. 


Listing occupies 2.8K 
Program runs in 3.8K 

To use 

This program will solve any right-angled triangle. It also gives 
full working out stages, printing out which formulae are used 
for each stage. This program, therefore, can be used to check 
working, or as a quicker way of doing homework. 

On running, the computer draws a right-angled triangle and 
asks for the sides and angles that you know. The usual notation 
of angles A,B,C and sides a,b,c has been avoided as lower-case 
letters are not possible. Instead, the sides are labelled A(l), 
A(2) and A(3) and the angles (not the right angle) A(4) and 
A(5). 

You enter only two of the values at least one of which must 
be a side, since a triangle where only the angles are known is 
unsolvable. Do not enter more than two values, even if you 
have them available. For the other three values enter 0. The 
screen then clears and the triangle is redrawn, with full working 
out underneath, together with the answers. On pressing 
NEWLINE, the triangle is again drawn, together with all the 
correct sides and angles in a short list. 

Note that final answers are given to four significant figures. 
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RIGHT-ANGLED TRIANGLE SOLVER 


Hl4) RIGHT ftNGLED 



INPUT SIDE ft ( 1 > ... 34- . £7 
INPUT SIDE ft(2).-.36 
INPUT SIDE ft <3> . . .O 
INPUT ANGLE ft(4-J...0 
INPUT fiNGLE ft(5). . .© 



A (2) 

USING PYTHAGORAS. 

R(3) **2=A(1)**2+ft(2)**2 
R(3) =SOR 1 710 1.4-322 + 1226) 
ft (3) =91.637508 
USING SIN R(4)=A(2)/R(3J . 
ft <4-3 =23.132021 DEGREES 
USING "SUM OF ANGLES IN A 
TRIANGLE=160 DEGREES”, 

A (5) =30-A (4-) . 

R £5) =56.667309 

l PRESS NEWLINE TO SEE ANSWERS) 


fid) 


5 IDF 
FIDE 
SIDE 
ANGLE 
ANGLE 



ft »‘S) 

ft (2> 

ft (I) =34-. 27 
ft 2 ) =36 
ft(3)=91.633 

ft (4.) =23.132 DEGREES 
ftCEU =36.333 DEGREES. 
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A 11) 


A (4-1 RIGHT ANGLED 

TRIANGLE SOLUER, 


A (31 



A (2) 


A (SI 


INPUT SIDE A(ll. 
INPUT SIDE A(21 . 
INPUT SIDE ACS) . 
INPUT ANGLE R (4- ) 
INPUT ANGLE R (5) 


.0 

. 14-1 

. e _ 

* a bb a 

a .0 


o6 


R (4.) 



USING "SUM OF RNGLES IN R 
TRIANGLE =180 DEGREES", 

A (SI -90-A (4-A , 

A iS) =20.34- 

USING COS fl (5) =R (2) /R (3) , 

Ri3)sfl(2)/COS A (51 
A(31*153.56633 
USING PYTHAGORAS, 

A(11**2*A(31**2-A(21**2 
ACllsSOR (23S32.S1S-198311 
R < 1) =60.84-0922 

(PRESS NEWLINE TO SEE ANSWERS 1 


R (4-1 



A (31 


R (11 


(5) 

R (23 

SIDE R(ll =60.34-1 
SIDE R (21 =14-1 
3 IDE A ('31 = 163 . SSto 
ANGLE A (4-1 =66.6 g 
ANGLE A (SI =23.34- 


DEGREES. 
DEGREES. 
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Notes on listing 

Note that the computer works not in degrees, but in radians. 
There are two PI radians in a circle, i.e., one radian is about 
57.3°. This means that any inputted values must be converted 
into radians before the computer works them out. Also, 
whenever an angle is solved or printed, it must first be con¬ 
verted back into degrees. 

Note that ASN (as in line 810) is written ARCSIN on the key¬ 
board. Also, in line 600, the double inverted commas character 
is used (referred to as ‘quote image character’ in ZX81 manual 
but often known as ‘double inverts’). Do not put two inverted 
comma characters, it won’t work. 

10 Goto start of program. 

50 Print triangle. 

100 If A(4) AND A(5) means If A(4) and A(5) are logically 
true, which is another way of saying IF A(4) < > 0 AND 
A(5) < > 0 but quicker. If only the two angles are known, 
goto 450, as triangle is insoluble. 

110 If either angle is known, goto 200. 

120-140 No angles are known. Therefore two sides are known. 
Find third side by Pythagoras’ theorem. IF NOT A(l) means 
IF A(l) = 0. 

150 If the two angles are now known, then goto ‘Triangle 
solved’in line 300. 

160 Goto find angle A(4) sub-routine. 

170 Goto find angle A(5) sub-routine. 

180 Goto‘Triangle solved’in line 300. 

200-240 One side, one angle known. 

200 Gosub find second angle routine, line 500. 

220-240 Find second side of triangle and finish triangle in 
lines 120-150. 

300-400 Answers. Clear screen on command, redraw triangle 
and print three sides and two angles underneath. 

Note radian answers for angles are converted to degrees by 
multiplying by 180 * PI. 

450-460 Triangle insoluble because only angles are given. 
500-560 Find angle A(5) from angle A(4) or vice versa. Logic 



RIGHT-ANGLED TRIANGLE SOLVER 231 

is used to determine which angle must be found. So if A(5) 
- 0 is logically true, the angle to be found is A(5). 

540 The angle to be found is 90° minus the known angle. 90° 
is .5 PI radians. 

60(1-640 Find side A(l) by Pythagoras’ theorem. 

650-690 Find side A(2) by Pythagoras’ theorem. 

700-740 Find side A(3) by Pythagoras’ theorem. 

800-850 Find angle A(4) from sides A(2) and A(3). 

850-890 Find side A(2) from side A( 1) and angle A(5). 

900-940 Find side A(3) from angle A(5) and side A(2). 

950-990 Find side A(2) from side A(3) and angle A(4). 
8000-8220 Start of program, gosub draw triangle, request 
inputs of various sides/angles. Convert angles from degrees 
to radians. 

8500-8570 Sub-routine to draw right-angled triangle and label 
sides and angles. 


Listing 


X REH RIGHT ANGLED TRIRNGLE S 
OLUER 

S REM COPYRIGHT 1932 

3 . ROBERT 5 PE EL¬ 
IO GOSUB 300O 
50 GOSUB SS00 

100 IF R (4.) AND R (5) THEN GOTO 
4 SO 

110 IF R(4> OR RfSJ THEN GOTO S 
®0 

120 IF NOT fid) THEN GOSUB 300 

130 IF NOT R(21 THEN GOSUB 650 

140 IF NOT R(3) THEN GOSUB 700 

150 IF R(4) AND R(5) THEN GOTO 

300 

ISO GOSUB 800 
170 GOSUB 500 
160 GOTO 300 

200 GOSUB 500 
220 IF RtlJ THEN GOTO 350 
230 IF R(2) THEN GOTO 900 
240 GOTO 950 

300 PRINT ”(PRESS NEULINE TO SE 

E ANSWERS>" _ _ 

310 IF INKEY $<='"' THEN GOTO 310 
320 CLS 
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•330 GOSUB 3500 

34-0 FOR F = 1 TO 3 

350 PRINT "SIDE A(";F; 

(1000*3 (F) + .5) 71000 
3S0 NEXT F 
370 FOR F =4- TO 5 
360 PRINT " ANGLE AC; 
T il000*fl(F)*1S0/PI+.S) 
ESREES." 

3-33 NEXT F 
4.00 STOP 


" > = 


INT 


F; " ) = "; IN 
71000;" D 


4-5© PRINT "THIS TRIANGLE CANNOT 
SE SOLUED." 

480 STOP 

500 PRINT " USING ""SUM OF ANGL 
ES IN R TRIANGLE =180 DEGREE 

g « » i * < « 

510 LET RS= (A(5)=0) *4+ (A(5)>0)* 
5 

520 LET SR* (A (4.) =0) *4-+ (fi (4.J * 

5 

530 PRINT "fl(";SR; ") =90-A("jRS;. 

"i , " 

540 LET R (SR) =.5*PI-A (RSJ 
55© PRINT "fl {•*; SR; ") = ", AfSRi *18 
0/PI 

560 RETURN 

500 PRINT " USING PYTHAGORAS, 

A(l) **2=fi (3) **2-A (2) 

** 2 " 

610 PRINT "Ad.t*SOR r;A(3.t 

*• _M - (2) * ") •• 

620 LET R(l)=SOR (fl (3) **2-R (2) * 
*2) 

530 PRINT "R(1)=";A(1> 

540 RETURN 


650 PRINT “ USING PYTHAGORAS, 

R(2)**2=A(3)**2-R(1) 

**3” 

660 PRINT "A(2)=SQR C;AC3)**2; 

R ( 1 ) *-*2.; ") " 

570 LET fl(2)=S0R (A(3) **2-flrIJ * 

^2 ) 

6©0 PRINT "R (2) =":R(2) 

690 RETURN 

700 PRINT " USING PYTHAGORAS, 

R (3) **2=A(1) **2+R(2) 

* *2 " 

710 PRINT "A(3J=SOR (";A<1)**2; 
(2) **2; " 
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720 LET fli3) aSOR VR i 1 .1 **2 +R (2) * 

* 2 ) 

730 PR INT " fl C3.> = " ; R ( 3.1 
74.0 RETURN 

300 PRINT "USING SIN fl (4..1 =A (2) / 

R 13 ' " 

310 * LET R (4.) =flSN (R (2.1 /fl (3) .1 
820 PRINT "fl(4.}=";fl(4.) #lS0/PI; " 
DEGREES" 

330 RETURN 


350 PRINT "USING TfiN AI5J 

R (2) , '• 

880 PRINT /TflH ft <51" 

370 LET fl(2J =fltil /TflN fll'5) 

350 PRINT "ft <2) « <2> 

890 GOTO 120 


R 


9G0 PRINT "USING COS ft (5) =ft (2) S 
(3) j" 

91© PRINT "Rf3) =fli2)/COS R<S1" 
920 LET fl(3)=fit2)/COS RfS) 

930 PRINT "ft.<3) R <3> 

94-0 GOTO 120 


350 PRINT "USING SIN R <4-3 «ft (2Ji S 

K3) " 

960 PRINT "ft(2) =R(3) *SIN R(40 " 
970 LET R (2) *R (3.1 *SIN R (4..1 
9©0 PRINT "R (2.1 ="; R (2.1 
990 GOTO 12© 


B000 DIM R (5.1 

3010 PRINT TAB IS:"RIGHT ANGLED" 
; TAB 10;" TRIANGLfe SOLDER. " 

8020 PRINT 
8030 GD5UB 3500 
804-0 PRINT 


S100 FOR F=1 TO 3 
8110 PRINT "INPUT 


SIDE 


R 


; p ; " J " 


8120 INPUT R 
6130 PRINT " 
314-0 NEXT F 
5150 FOR F=4 
816© PRINT " 


TO 5 

INPUT RNGLE 


R F; “) 


8170 INPUT R 
6160 PRINT " 
6190 LET R(F 
8200 NEXT F 
3210 C L S 
3220 RETURN 


IF) 

. . . RiF.i 

.1 =ft I'F.l jPI/180 
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©500 PRINT AT 0,5; 
S510 FOR F = 1 TO 7 
S52© PRINT AT F,4-; 

853© NEXT F 

©54.0 PRINT TAB 4-; " 

6550 PRINT AT 4-,0; 

"A C3) “ 

©560 PRINT AT 9,6; 
B570 RETURN 


"A (4.) “ 

*■ 1*' i AT F^F+4.; 

. (S) “ 

“A {1.1 " ; TAB 10 

"A t'2J " 



Compound Interest 


Listing occupies 2.3K 
Program runs in 3.3 K 

To use 

This program calculates compound interest on any sum of 
money invested at any interest rate for any number of years. On 
running, you are asked to input first the interest rate then the 
times when the interest is calculated, then the initial invest¬ 
ment. 

The program also allows you to take out a fixed sum, or invest 
a fixed sum each month/year or specified number of months. 

The program asks for how much you want to deposit 
regularly and at what monthly intervals. If you do not want to 
invest any regular further amounts, input zero for both these 
values. You are then given a choice between seeing the monet¬ 
ary situation after a specified number of years, or seeing how 
the cash builds up over a period of ten years, year by year. 

For example, you wish to invest £1000 in one of two banks: 
Bank 1 offers a compound interest rate of 12.5 per cent with 
interest added on every six months, and Bank 2 offers a com¬ 
pound interest of 12.8 per cent added on annually. Which bank 
should you choose to invest in to obtain the highest return after 
nine years? 

Run the program and input 12.5, 6, 1000, 0, 0 (0, 0 here 
because no additional money invested or withdrawn), in answer 
to the questions. Then input A. The screen will show the 
following. 
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i GROUJ»^^^^RPrTm^ 


INITIRL DEPOSIT =£1000 
RT 12.5 PERCENT CRLCUL.RTED ERCH 
6 MONTHS. 


YERR 

DEPOSIT 

INTEREST 

NEU i 

1 

1000 

128.9 

0 

o 

1128.9 

145.5 

0 

3 

1274. . 4- 

164.3 

0 

4 

1438.7 

185.5 

0 

5 

1624.2 

209.4 

0 

6 

1833.5 

236.4 

0 

T 

2069.9 

266.8 

0 

3 

2336.7 

301.2 

0 

9 

2637.9 

340 

0 

10 

2978 

383.9 

0 


FURTHER 10 YERR57{PRESS Y/N) 

Stop the program and repeat for Bank 2, inputs being 12.8,12, 
1000,0, and 0. Input A to get the following output. 


£ 


ROUTH OF 


CRPI^RL^ 


INITIRL DEPOSIT =£1000 
RT 12.8 PERCENT CRL.CULRTED ERCH 
12 MONTHS. 


YERR 

DEPOSIT 

INTEREST 

NEW 1 

1 

1000 

128 

0 

2 

1128 

144.4 

0 

3 

1272.4 

162.9 

0 

4 

1435.2 

183.7 

0 

5 

1619 

207.2 

0 

6 

1826.2 

233.8 

0 

7 

2059.9 

263.7 

0 

8 

2323.6 

297.4 

0 

9 

2621 

335.5 

0 

10 

2956.5 

378.4 

0 


FURTHER 10 YERRS'? tPRESS Y/N) 


This shows that at the beginning of, for example, year five (= 
end of year four) you would have £1624.20 in Bank 1, or 
£1619.00 in Bank 2. At the beginning of the tenth year, you 
would have £2978.00 in Bank 1, or £2956.50 in Bank 2. Clearly, 
if interest rates remain constant, Bank 1 is the better choice. 



COMPOUND INTEREST 


237 


Another example 

You are considering investing in a building society. For an 
initial investment of £1500, and a further £100 invested every 
six months, they offer a guaranteed 10.2 per cent compound 
interest, calculated quarterly. You want to know how much 
you would have after eight years, and of this amount, how 
much would be profit; that is, the total interest earned so far. 

Run the program, inputting 10.2, 3 (3 months = quarterly), 
1500, 100, 6 (£100 every 6 months) and then input B. Then 
press 8 to prompt ‘how many years . . . ?’ This gives the follow¬ 
ing output, showing total in account after eight years and profit 
if you withdraw at the end of the eighth year. 

GROWTH OF CRPITRL 

INITIRL DEPOSIT =£150© 

«T 10.2 PERCENT CRLCULRTED ERCH 
3 MONTHS. 

DEPOSIT OF £100 EUERY 6 MONTHS. 
RFTER 8 YERRS... 

TOTAL MONEY INVESTED =£5755.33 

TOTAL PROFIT =3855.3384- 
(PRESS NEWLINE TO RETURN) 

If you want to withdraw money regularly, simply input a 
negative value to the prompt “INPUT REGULAR DEPOSIT 
. . .” Note that if the withdrawal amount is larger than the 
interest, the capital invested decreases and will eventually 
become a debit... .This would not be possible in reality. 

Notes on listing 

100-290 Input various variables to prompts. 

A = interest rate 

B = when interest computed (in months) 

C = initial investment 

D = subsequent investments/withdrawals 

E = interval between subsequent investments/withdrawals 
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300-450 Choices of whether to see interest calculated year by 
year, or total after a number of years, or stop program or do 
new problem. 

900-1240 Main loop for calculating compound interest. This 
is done in FAST mode. 

920-980 Print title and details of investment. 

1000-1020 Y = number of years being considered 
DP = total investment at beginning of each year 
TM = total months considered. This is useful when extra 
money is added every fifteen months, or interest calculated 
bi-annually, etc. 

1030 EC = total of years being considered. Either this is set 
by user (B mode) or set at 10 (A mode). 

1100 Print column titles if in A mode. 

1110 For F = year 1 to last year (1 to 10 in A mode, or 
subsequently 11-20,21-30 etc.). 

1120-30 ND = newly deposited money this year 
RS = interest accumulated this year 
1140 Interest is calculated monthly. 

1150 Increment ‘total month counter’. 

1160 If interest should be added this month, calculate 
compound interest and add it. 

1170 If money put in or taken out this month, do it. Note 
that TM/B = INT (TM/B) only when interest is due, and 
similarly for E. This allows odd values, such as money 
removed every seven months, still to work. 

1180 Do again for all twelve 12 months. 

1200 Print list of yearly values if in A Mode. 

1210 Increase DP by interest earned and deposits made that 
year. Note D is unchanged, so other calculations can be made 
later if necessary (i.e., in B mode). 

1220 Repeat for 10 years (A mode) or inputted value (B 
mode). 

1230 Go back to SLOW mode so that answers can be shown. 
1240 IfinB mode, goto 1500 and print answers. 

1300-1380 Show table of interest, etc., and offer another ten 
years’ viewing. If accepted, return to fast mode and repeat, 
without resetting, TM (total months), DP (money invested 
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so far) and Y (years considered). Otherwise goto choice loop 
at 300. 

1400-1420 Select how many years you want done in B mode. 
Do loop in 900. 

1500-1570 Results of B mode, total money invested and total 
profit after EC years. Then return to choice loop. 

Listing 


A S3 REM COMPOUND INTEREST 
20 REM COPYRIGHT 1932 

S.ROBERT SPEEL 

100 CL S 

xa.ra print "COMPOUND INTEREST" 
120 PRINT 

130 PRINT "INPUT THE INTEREST R 
PTE PERCENT/ IE 12.5 PERCENT IS 
ENTERED RS 12.5" 

14-0 INPUT R 

150 PRINT TAB 10; fl 

ISO LET A=A/100 

170 PRINT "INPUT INTERVAL BETUE 
EN INTEREST CRLCULRTIONS IN MONT 
HS, SO IF THE INTEREST IS 172 Y 
EARLY, INPUT 6." 

1B0 INPUT B 

190 PRINT TAB 10;B 

200 PRINT "INPUT INITIAL DEPOSX 

T" 

210 INPUT C 

220 PRINT TAB 10;"£";C 

230 PRINT "INPUT REGULAR DEPOSX 
T i IF NONE THEN INPUT 03" 

24.0 INPUT D 

250 PRINT TAB 10; D 

26® PRINT "INPUT INTERVAL BETUE 
EN DEPOSITS fIF NONE INPUT 03" 
270 INPUT E 
260 PRINT TAB 10;E 
290 IF E=0 THEN LET E=13 


300 CLS 

310 PRINT " YOU MAY;- 


320 PRINT 

33© PRINT "A3 SEE GROWTH OF CAP 
ITAL OVER A NUMBER OF YEARS. ** 

34-0 PRINT "B> SEE SITUATION AFT 
ER A CERTAIN NUMBER OF YEARS." 
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350 PRINT "Cj DO HEU CflLCLILflTIO 
N. ” 

360 PRINT "D; STOP PROGRAM.” 

408 LET A*=INKEY$ 

4.10 IF A$="A" THEN GOTO 900 

420 IF AinU'Et” THEN GOTO 14.00 

4.3© IF A$»"C" THEN RUN 

4-4-0 IF A$*"D" THEN STOP 

450 GOTO 4.00 

900 FAST 

910 CLS 

Q20 PRINT ” GROWTH OF CfiPTTflL" 
93® PRINT 
94-0 PRINT 

9S0 PRINT "INITIAL DEPOSIT 
C- 

960 PRINT "AT "; Ft* i®B; " PERCENT 
CALCULATED EACH B;“ MONTHS 

*970 IF D >0 THEN PRINT "DEPOSIT 
OF £";D;" EUERY ";E;" MONTHS." 
9S0 PRINT 


1000 LET Y=0 
1010 LET DP=C 
1020 LET TM=0 

1030 IF A*=”A" THEN LET EC=Y+1® 
1100 IF A*="A” THEN PRINT "YEAR 
DEPOSIT INTEREST NEW DEPOS.” 
1110 FOR F=Y+1 TO EC 
1120 LET ND=0 
1130 LET RS *0 


1140 FOR G =1 TO 12 
1150 LET TM-TM+1 

1160 IF TM.-'B =XNT (TM/B) THEN LET 
RS*RS+ (DP+ND+RS) *A*B./12 
1170 IF TM/'E = INT (TH/'EJ THEN LET 
NDsND+D 
1190 NEXT G 

1200 IF A$ = "A" THEN PRINT F;TAB 

6 i I NT (DP*10+ . 5) /IB; TAB 14; INT i 

R5-H0+.5) /10;TflB 25;ND 

1210 LET DPaDP+ND+RS 

1220 NEXT F 

1230 SLOW 

1240 IF A$»"B'' THEN GOTO 1500 
1300 PRINT 

1310 PRINT "FURTHER 10 YEARS?(PR 
ESS Y SN) " 
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1320 IF INKEY$="N" THEN GOTO 300 

1330 IF INKEY $ — “Y " THEN GOTO 133 

iTk 

134-0 GOTO 1320 

1350 LET V =Y +10 

1360 CL 5 

1370 FPtST 

1330 GOTO 1030 

1400 PRINT "AFTER BDU MRNY YEARS 
WOULD YOU LIKE TO SEE INUESTHE 

^y -7 »» 

1410 INPUT EC 

14-20 GOTO 900 


1500 PRINT "AFTER M ;EC; M YEARS» * 


1510 PRINT 

1520 PRINT "TOTAL MONEY INUESTED 
=£";INT fDP*100+-5)/100 

1530' PRINT 

154-0 PRINT "TOTAL PROFIT =“;DP-C 
-[>*E/1£»EC 

1550 PRINT •* (PRESS NEULINE TO R 


STURN) " 

1560 IF INKEY$ <=•*'• 


THEN GOTO 156 


0 

1570 GOTO 300 



Bar Graph 


Listing occupies 1.0K 
Program runs in 2.1K 


To use 

The program is very simple and self-explanatory. Maximum 
and minimum data are the upper and lower limits of the Y axis 
on the graph that you want to have shown. 

As in all bar graphs, the idea is to show overall trends, rather 
than exact values. This is useful for graphs showing 
temperature, domestic electricity consumption, club accounts 
and other similar data. 

The graph takes monthly values, but these can be changed 
to annual, weekly or other intervals. So, if, say, annual values 
over 15 years were desired for a club membership record, the 
following changes would be made. 


a© L.ET B*»" 196019611962196319© 
41965196619671963196919701971197 
219731974" 

30 DIM BflSJ 

160 PRINT "NOW INPUT YEARLY DPT 


A" 

200 FOR F =0 TO 14- 

4-20 PRINT AT 20,6;"I960.5. 

f •< 


70 c 


* 600 FOR F =1 TO IS 


Notes on listing 

10-20 DIM string containing names of data. 

30 B will hold data. 

100-150 Input title of graph, and maximum and minimum 
values shown. 

160-260 Input data, and if data too large or small, then re¬ 
input it. 
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250 Convert data to number equivalent to a certain ‘height’ on 
screen, so maximum value is 15 squares high, minimum is 
0 . 

300-330 Print title and underline with line right length. 

340-370 Print X and Y axes. 

400-420 Print Y maximum and minimum values, and initials 
of months. 

500-570 Print each bar separately. Note use of Vi grey square 
to give higher accuracy. 

INPUT GRAPH TITLE 

INPUT MAX DATA 

INPUT MIN DATA 

NOW INPUT MONTHLY DATA 

URN. 10 

FEB. 134 

MRR. 26? 

RPR. 563 
MRY. 1000 

JUN. 140? 

«JUL. 1?6S 

RUG. 1400 
SEP. 6?0 
OCT. 200 
NOU. 345 
DEC. 1© 


MONSOON RAINFALL 



UFMAMJUA5QND 
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Listing 


1 REM BRR GRAPH 
1© DIM B**.*8) ^ 

2© LET B$ = "vJAN.FEB„MAR„APR.MAY 
, UUN . JUL . RUG . SEP . OCT . NOU . DEC . ** 

30 DXH B {12 J 

1©0 PRINT "INPUT GRRPH TITLE” 
11© INPUT A$ 

120 PRINT "INPUT MAX DATA" 

13© INPUT MAX 

14.0 PRINT "INPUT MIN DATA" 

IS© INPUT MIN 

16© PRINT "NOU INPUT MONTHLY DA 

200 FOR F=0 TO 11 

21© PRINT B$(F*4- + 1 TO F*4-+4-> ; 

«» r 

220 INPUT DAT 

£30 IF DAT <MIN OR DAT >MAX THEN 
GOTO 220 

24.0 PRINT DAT ljf 

250 LET B(F*l)=(DAT-MIN)/(MRX-H 

XN) *15 
2S0 NEXT F 
27© CLS 
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300 PRINT ftT ©,3;ft* 

310 FOR F = 1 TO LEN ft* 

320 PRINT ftT l,F+2; 

330 NEXT F 

34.0 FOR F=0 TO 15 

350 PRINT ftT 18-F,5;"J“ 

360 PRINT ftT 10 , F +6; *'™" 

370 NEXT F 

4.00 PRINT ftT 4-, S—LEN STR* HftX; M 

ftX 

410 PRINT ftT 10,5 —LEN STR* MIN; 
MIN 

420 PRINT ftT 20,6; "vJFMftMOciftSONf> 

500 FOR F = 1 TO 12 

510 FOR G=1S TO 3 STEP -1 

520 IF B(F))=1 THEN PRINT ftT G, 

p 

53& IF B*F.»<1 AND B(F.»>=.S THEN 

PRINT ftT G,F+S;'W 

540 IF 8 < F) < =0 THEN GOTO 570 

550 LET B (Fi =B <F) —1 

560 NEXT G 

570 NEXT F 
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Conversions and the Printer 

When you want to convert, for instance, inches into 
centimetres, a simple program such as: 

10 INPUT INS 

20 PRINT INS, INS *2.54 

would do this. However, it is much simpler to do this with a 
pocket calculator, or even with pen and paper. So what can the 
ZX81 do with mathematical functions which a calculator can’t? 
The answer is - lists. A list of conversions of inches to cen¬ 
timetres, and vice versa can be very useful. This is where the 
ZX Printer comes in. 

Using a FOR-NEXT loop, a table of conversions can be 
printed out and then a print out made using COPY. When you 
consider it, all conversion tables are very much the same. They 
all have a column of figures, say for degrees centigrade, with 
a second column, adjacent, giving equivalent values for degrees 
fahrenheit. The values for the first column are usually in a 
definite order, going up in regular steps such as 1, 2, 3, 4 . . . 
or 20, 40, 60, 80, etc. The degree of accuracy in the conversion 
will vary enormously, but the conversions to eight decimal 
places and those to the nearest hundred, still involve the same 
two columns of figures. This next program is for use with the 
printer. It will print out columns for most conversions in any 
steps, accurate to up to eight decimal places. All you need to 
know is the conversion equation and just what range of values 
you want to know. 
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To use 

This is best shown by taking an example. 

A student wants temperature conversion tables for ‘O’ level 
science subjects. He needs a very good conversion from °C to 
°F for typical room temperatures (about 15-25°C), a reasonably 
accurate - to nearest degree - conversion from 0-15°C and 25- 
100°C, and a reasonable idea of °F for 100-500°C. He would 
also like a rough idea of equivalent temperatures from 500- 
2000°C. 

If we divide these requirements into a list: 


Temperature 
0-14°C 
15-25°C 
26-100°C 
110-500°C 
550-2000°C 


Step between values shown 
each1°C 
each .5°C 
each 1°C 
each10°C 
each 50°C 


Accuracy of °F 
1 decimal place 
3 decimal places 
1 decimal place 
no decimal places 
no decimal places 


When the program is run, it asks for the title, in this example 
it would be CENTIGRADE TO FAHRENHEIT. 

Next it asks for the heading to Initial Value - input CENT., 
and the heading for converted value - FAHR. Next you input 
the conversion factor as an equation. 

To get from centigrade to fahrenheit, the centigrade value is 
multiplied by 9/5, and 32 is then added. You have to put in the 
equation with F as the unconverted value. In this case, you 
would input F* 9/5+ 32. (Another example, for millimetres to 
inches, the conversion factor is mm x 25.4, so you would input 
F*25.4.) 

When the program asks for how many scales, in the above 
example (CENTIGRADE TO FAHRENHEIT) you would 
put 5. The computer then asks you about each scale, asking for 
starting and ending values, step between values, and decimal 
places required. 

For the 0-14°C scale therefore: starting value — 0, end value 
- 14, step — 1 and decimal places = 1; and for 15-25°C, 
starting value = 15, end value = 25, step = .5 and decimal 
places = 3. 
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This would be continued for the remaining three scales and 
then the list would be printed on the screen, with an error 
message at the bottom to indicate that there is no more room 
on the screen. 

Press COPY to get a print out, and then CONT. Another 
screenful of conversions will appear. When this has been 
COPYed you will see that it joins up smoothly with the first 
page. 

Repeat this until the whole list has been printed out on paper. 

The reason for the stopping of the program after each page 
(if more than one) and the manual entry of COPY and CONT, 
is so that you can examine each page before printing it out on 
paper. If you find that you actually need different steps or you 
need to make a change, you can start again by pressing RUN. 

However, if you do not want all this stopping and starting, 
then just change all the PRINT statements in lines 20-240 (not 
those after this point) to LPRINT statements. Do not rewrite 
each line, just EDIT each line, move the cursor past the 
PRINT, RUBOUT the PRINT and put LPRINT instead. 


1 REM CONVERSION 
IQ GGSUB 8000 
20 LPRINT R$ 

30 FOR F = 1 TO LEN R* 

*0 LPRINT ; 

50 NEXT F 

60 LPRINT TAB 3;"CONVERSION Tfi 
BLE" 

70 LPRINT " ...''*■ 

80 LPRINT 

90 LPRINT B#;TflB 10; " I ";C$ 

11© LPRINT TAB 10; " |" 

150 FOR E=1 TO SCR 

160 FOR F=Z(E) TO Y<EJ+.00001 S 
TSP XtE) 

18© LPRINT F;". .TRB 10; "I. . 
TBB 14.; INT tVRL D$ * 10 * *U t E) + . 5) / 
1®**W(£) 

220 NEXT F 
230 NEXT E 
240 LPRINT 
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This will result in the complete list, with title, being printed 
on paper without stopping until the end. Should you require 
several copies of one conversion, do not reRUN after the first 
copy, just press the button on the printer to leave a short space, 
and type GOTO 20. This can be repeated to produce as many 
copies as desired. 

Notes on listing 

10 GO SUB start of program to get data. 

20 Print title. 

30-50 Underline title, making line right length. 

60-90 More title and title to each column of list. 

100 LH = point at which to start PRINTing AT. 

150 For E -• 1 to number of scales. 

160 For F = beginning of scale to end of scale in required step. 
170 Print dotted line for easy reading from value to converted 
value. 

180 Print value, separating line and converted value. 

200-210 Increase line to be PRINTed AT, and start new page 
if bottom of page has been reached - i.e., when program 
stops, pressing CONT continues at top of page. 

220-230 Repeat until finished. 

240 Final line showing end of list. 

8000-8420 Input all factors relating to conversion. 

These lines are fairly self-explanatory. The program will 
accept up to five scales. To have more, if necessary, simply 
addline 8385 CLS. 

Listing 

1 REM CONVERSION 
1© GOSUB 8000 

£0 PRINT R$ 

3© FOR F-l TO LEN 
4-0 PRINT 

50 NEXT F 

60 PRINT RT £,3; "CONUERSICN TP. 
BLE*' 

70 PRINT “ msmmmmsmms 

80 PRINT 

90 PRINT B$;TRB 10; ** § ";C$ 

100 LET LH =7 
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11© PRINT TAB 10; " ■“ 

15© FOR E = 1 TO SR 

16© FOR F=Z(E) TO Y (E>+.00001 S 
TEP X(E) 

17© PRINT ”." 

180 PRINT RT LH, 0j F; " " ; TAB 10.; 
" 1. , TRB 14; INT CURL D$*10**U (E 
)+.5)/10**W(E) 

300 LET LH=LH+1 

21© IF LH >21 THEN LET LH=0 

£20 NEXT F 

230 NEXT E 

240 PRINT -■-—- 


8000 PRINT ‘’CONVERSION" 

8010 PRINT 

8020 PRINT " INPUT TITLE" 

8030 INPUT fl$. 

8040 PRINT A$ 

8050 PRINT "INPUT HERDING TO INI 
TIRL VALUE tS LETTERS MAX.)“ 
8060 INPUT B* 

8070 PRINT "INPUT HERDING TO CON 
VERTED VALUE (8 LETTERS MAX.)’* 
8080 INPUT C$ 

©090 PRINT "INPUT CONVERSION FRC 
TOR " 

8100 PRINT "AS AN EQUATION IN F" 
8110 PRINT "WHERE F IS THE VALUE 
IN ";B* 

8120 INPUT D* 

8130 CLS 

8200 PRINT "INPUT HOW MANY SCALE 

S” 

8210 INPUT SR 
8220 DIM Z(SAJ 
8230 DIM Y(SR) 

8240 DIM X(SA) 

8250 DIM W(SA) 

8260 FOR F = 1 TO SA 

8270 PRINT "INPUT STARTING VALUE 
FOR SCALE ";F 
©280 INPUT Z(F) 

8300 PRINT "INPUT END VALUE FOR 

SCRLE ";F 

831© INPUT Y (F) 

835© PRINT “INPUT STEP” 

8360 INPUT X (F) 

8370 PRINT “INPUT DEC. PLACES" 
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©330 INPUT W(F) 
S39© NEXT F 
S4©0 CLS 
©4-20 RETURN 


COPYRIGHT S.ROBERT SPEEL 1932 



How to Make Your 
Cassette Collection 


After you have used your ZX81 for a while, you will have a 
number of programs stored on cassette. Some will be bought 
cassettes, others perhaps your own programs or programs 
copied from magazines or books. At some point the collection 
will have to be sorted. 

Some people say that programs should be saved separately 
on C12 cassettes, one program per cassette, recorded three 
times on one side only. This is a costly method and one which 
occupies a lot of space. 

I keep my collection mainly on C60 cassettes. There are 
programs recorded on one side only and a five-second gap is left 
between programs. The cassette recorder has a counter, and the 
count for the beginning and end of each program is noted on 
a card in the cassette case. When I want to load a program, I 
reset the counter, press fast-forward on the tape recorder until 
at the right place on the cassette and start loading. I do not 
record on the second side of the cassette. A C60 cassette is 
preferable, as it takes several minutes to reach the end of a C90 
cassette even on the fast-forward winding. I usually fit about 
6-12 short programs on a C60, or four long programs. 

When starting with a ZX81 the tendency seems to be to save 
programs haphazardly - cassette 1 containing the first twelve 
or so programs, cassette 2 the next group, and so on. A program 
from cassette 1 may be updated, made better and then saved 
on cassette 3, and an even better version on cassette 4. If you 
have problems with LOADing, some programs may be saved 
several times in a row. This kind of system will eventually be 
rather cumbersome. It will be difficult to keep track of which 
programs are on particular tapes, how many programs you have 
in all and which are complete. 
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I faced this problem when I had filled six C60 cassettes and 
I then changed my system to the present one, which I have 
found very good and a pleasure to use. 

I have separated my collection into programs which I wrote 
and programs done by other people (this was necessary because 
of sheer volume of programs, and is not really needed for a 
small collection). 

The programs are separated into groups, each group having 
its own C60 cassette. There is one for Moving Graphics games, 
one for Static Graphics games, one for Word games, one for 
Educational programs, Practical programs, Utility programs 
such as line re-number, and so on. I specialize in Adventure 
games, so I have two tapes just for these. When one tape over¬ 
flows, say Word Games, I just start a new cassette labelled 
‘Word Games 2’. 

For the program or programs being worked on at the 
moment, it is necessary to have Current Work cassettes, which 
have to be numbered. Associated with these are sheets of paper 
in a file where notes of variables, ideas and so on are kept. The 
last cassettes needed are ‘Security Tapes’. These are to 
minimize the possibility of a program being lost. If a cassette 
is lent to a friend who never returns it, or you mislay a cassette 
or accidentally wipe it, you do not want to lose a set of programs 
for ever. For this reason, the Security Tapes contain a copy of 
each finished program, not necessarily in any order, but with 
a note listing the programs. Since these tapes are not for every¬ 
day use, but only as a back-up system, convenience of loading 
can be sacrificed. Thus I use C90s or even Cl20s, recorded on 
both sides. The list of counts for each program on the cassette 
is on a card in the cassette case as usual. These should be stored 
in a different place from the ‘everyday use’ cassettes. 

For convenience, a couple of special tapes can be made, for 
instance, of ‘20 favourite games’ or ‘programs to take on holi¬ 
day’. 

Finally, if you have a ZX Printer, it is useful to make a listing 
of each program which you have written yourself. This is not 
only another back-up system against accidental loss of 
programs, but also can be useful when working up such 
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programs into a longer or more complex one. These listings can 
be stuck on to a sheet of paper and put into a file, serving as 
future references. 



Hardware Problems 


Some of us are lucky enough to have a perfect ZX81, with a 
rock-steady RAMpack, an obedient ZX Printer, and which 
LOADs and SAVEs perfectly every time. However, most of us 
experience some sort of problem at one time or another. 

It is not good for the system to dismantle it every evening to 
put into its box. The less you pull the RAMpack and Printer 
on and off the ZX81, the better. But it is not good to leave the 
system out to accumulate dust, either. 

The way I solved this problem is by having the whole system 
on a board. Half-inch strips of plywood are used to make 
‘sockets’ in which the ZX81 and ZX Printer sit, and the 
RAMpack is firmly seated on a wooden pedestal, so it cannot 
wobble. There is enough room to fit on a small cassette 
recorder, and the whole board has sponge non-slip ‘feet’ so that 
it will not scratch the table. The whole board can be moved to 
a storage shelf and has a plastic or wooden cover. If a special 
wooden cover is made with firm sponge pieces, glued in the 
right positions so that the whole box holds everything safely in 
place, the system can be stored on its side. 

There are now large, tough keyboards available which can 
hold the ZX81 and the RAMpack too. This is ideal for those 
who dislike the touch-sensitive keys on the ZX81. However, if 
you are planning to obtain a printer, check to see whether this 
will be accommodated easily. 


The Screen 

Very few lasting problems are due to the TV set exclusively. 
Note that a black and white TV usually gives a better picture 
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than a colour one. Some large screens may lose synchronization 
when presented with moving graphics, while a smaller, 
portable TV, such as a 9-inch screen, always keeps the pictures 
stable. 


The ZX81 

To keep your ZX81 in good condition, always press the keys 
gently, using a stroking movement. 

When a program gives instructions on which keys to use, 
make the instructions read ‘PRESS NEWLINE TO . . .’rather 
than the commonly seen ‘HIT NEWLINE TO . . .’ 

For those with new ROM ZX80s, problems may occur with 
the keyboard overlay if it is insecurely fitted. Make sure you fit 
it well and use with care. 


The RAMpack 

There are several RAMpacks available apart from the Sinclair 
16K RAMpack. These vary in standard and performance. If 
you have a RAM expansion which does not have some sort of 
plastic casing, as the Sinclair 16K has, make a cover to protect 
your RAM. 

When the RAMpack is attached to the ZX81, it should be 
gently pushed on, not rammed as hard as you can. If it won’t 
work, try wriggling it slightly or pulling it slightly away from 
the ZX81, bringing the contact out by a millimetre or so. 

Make adjustments ONL Y while the power lead is pulled out. 

If the RAMpack is not flush with the surface of the ZX81, 
and hangs rather precariously, cut a piece of sponge or 
balsawood as a support to hold it horizontally at the correct 
height. A ZX81 with a properly secure RAMpack should not 
even cause a flicker on the TV screen if the table is knocked. 

Remember, when planning the layout of the board or casing 
to hold the ZX81 and the RAMpack with its support, that if 



258 


HARDWARE PROBLEMS 


subsequently you get a printer, this will be attached between 
the ZX81 and RAMpack. 


The Printer 

This is attached by a double edge connector between the 
RAMpack and ZX81. The first roll of printing paper has a 
plastic centre tube, but refills have cardboard centre tubes, 
which may be slightly shorter than the original and slightly 
larger in diameter. The original hubs, which hold the roll of 
paper firmly, may fit more loosely into the cardboard tubes of 
the refills. In this case, wedge the hubs in \frith a little piece of 
cloth tape. 


Problems with LOADing and SAVEing 

This is probably the most frequent problem with the ZX81. 
There are several reasons why LOADing or SAVEing may be 
unsuccessful, and there are ways of coping with most of these 
fairly easily. 

The cassette recorder should receive the program from the 
ZX81 at a constant speed, sufficient volume, and record it 
evenly, then be able to LOAD the program back. A fault in this 
chain will lose the program. 

(1) The cassette recorder may run at an uneven speed caused 
by wear or poor design. The solution to this is to get another 
recorder. 

(2) The recorder head may be out of alignment and, although 
a program can be successfully SAVED and re-LOADed from 
that machine, it will not LOAD on other, correctly aligned 
recorders. This can be cured by having the recorder head re¬ 
aligned professionally. 

(3) The impedance of the recorder may be non-standard. 
Advice from an electronic shop or knowledgeable person can 
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usually solve this problem by adding or by-passing a resistor or 
tapping the loudspeaker connections directly. 

(4) The inherent volume output can be very low, e.g., 
designed only for earphones. This could be overcome by 
adding an additional amplifier available from electronic 
stores. 

(5) The recorder may have additional refinements for musical 
quality, such as Dolby, Limiter, Auto-record, Tone, Tune, 
Tape bias limiter and other settings. Switching off most of 
these, with Tone on High and experimenting, usually finds a 
compatibility with the computer. Otherwise, as previously 
mentioned, by-passing or tapping a connection will give good 
results. On hi-fi machines, the MIC and EAR sockets give 
better results with the computer than the line sockets. 

(6) With stereo recorders some models, e.g., Sony 156, work 
better on the left channel. Often wiring a Y parallel lead into 
left and right channels for recording, and a single stereo head¬ 
phone paralleled lead to the mono socket, will give better re¬ 
sults. A low-impedance aerial lead often improves matters. 

(7) Usually all leads for LOADing and recording can be left in 
but on some recorders it may be necessary to unplug the lead 
not in use at the time. (Note that the Spectrum must always 
have either LOAD or SAVE leads disconnected at one end.) 
This is usually to avoid an earth loop. Switches for this purpose 
can also be obtained. Full saturation without over-recording is 
the rule. A too low or too high level will lose the program. 

Intermittent mains interference, e.g., from a fridge, electric 
typewriter or heater thermostat, can record a spurious signal 
which may result in loss of program both during LOADing and 
SAVEing and this type of interference is worth checking. The 
recording can sometimes pick up interference from the 
oscillator if the computer is too close to the recorder or the 
connecting wires are crossed or coiled. This is very infrequent, 
but it can happen. 

(8) After prolonged storage the cassette sometimes replays 
unevenly and will not LOAD a program. Fast rewinding a few 
times, back and forth, will probably cure the problem. 

(9) Occasionally, clean your recorder heads with a little spirit 
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on a cotton bud and demagnetize the head, otherwise a build¬ 
up of background noise can infringe on to the program. 

(10) If you find that you still cannot LOAD correctly, there is 
a special cassette recorder marketed exclusively for the ZX81 
(which is unsuitable for music). Although it is rather expensive 
for the quality of machine, it does give impressive results. 

(11) If the problems persist with LOAD and SAVE, try the fol¬ 
lowing. Devote a cassette exclusively to the program being 
dealt with. Leave the SAVEing leads plugged in to the 
computer and cassette machine. After every 20 lines, or every 
15 minutes, SAVE the program so far. This way you will build 
up a series of recordings, getting gradually more complete. If 
the computer suddenly blanks then you can LOAD the last 
recording and you will only have lost, at most, 15 minutes’ 
work. If that recording won’t LOAD, try the previous one. 
Even if you have to go back three or four recordings, the 
chances are that you will not have lost all the program. At the 
end of a session, when you want to pack up, to continue next 
day or let the computer cool off, SAVE the program three 
times. 

You may find that a cassette will mis-SAVE over a particular 
spot on the tape. This could be due to slight damage on the tape 
at that point or a previous signal being imprinted too ‘deeply’ 
for removal by wiping the cassette. In this case, just SAVE after 
the break. 

In general, take more care when SAVEing than when 
LOADing. You can always re-LOAD, but if a program is mis- 
SAVED it could be lost for ever. 



Glossary 


The glossary covers most of the computer terms used in this 
book together with a few others which you may find useful. 
Note that some of the meanings given apply only to this book 
or to Sinclair computers and would not be suitable elsewhere. 


Address Units of memory are numbers between 0 and 255 
called bytes, and each byte has an address. To find the value 
of a byte, you PEEK at its address, and to change it, you 
POKE to its address (if it is in RAM). 

Amplification The Spectrum does not produce very loud 
sounds and these can be amplified by plugging in the SAVE 
leads only and pressing Record on the cassette recorder 
without pressing Forward. Adjust the volume control to 
obtain the sound required. 

Argument The numbers or strings which you perform a func¬ 
tion on constitute the argument of that function: e.g., for 
LEN A$ , A$is the argument, and for INT(X+Y/2), X+Y/2 
is the argument of the function. 

Arithmetic expression With Sinclair Basic, commands can 
generally refer to expressions, as well as simple numbers: 
e.g., FOR F = VAL A$(46) TO K+9/PI is possible in 
Sinclair Basic, but not in many others. An arithmetic 
expression is a collection of functions and arguments which 
the computer can reduce to a single number. 

Array An array is a set of variables with a dimension. DIM 
A(10,10,10)setsupl 000 variables, all initially zero, A( 1,1,1) 
to A(10,10,10). String arrays can be made similarly: e.g., 
A$(10,10). By omitting the last dimension, a whole string 
results, e.g., A$(l) gives a 10-character string. 
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Attributes On the Spectrum each character square on the 
screen has attributes: an ink colour, a paper colour, and it 
can be extra bright or flashing. The attributes can be 
examined using ATTR. 

Binary Binary is base 2. It uses ones and zeros only and is use¬ 
ful when defining user-defined graphics on the Spectrum. 
Each number from 0 to 255 can be represented by 8 binary 
digits, e.g., 36 is 100100 in binary. 

Block graphics This refers to the graphics made from 
dividing a character square into four quarters and filling one 
or more of these with black or grey (or the INK colour on 
the Spectrum). They are used for low-resolution pictures and 
can be highly effective in patterns, bar graphs and other 
displays. 

BREAK By pressing the BREAK key on the ZX81, or CAPS 
SHIFT BREAK on the Spectrum, a program can usually be 
halted. CONT will start the program again, but will clear the 
screenonaZX81. 

Bug Hardware or software which does not work properly 
contains bugs. These may be serious, e.g., clearing the 
memory when a key is pressed, or trivial, e.g., printing an 
extra full stop occasionally. A program often takes more time 
to debug than to write in its original form. 

Byte Each unit of memory is called a byte and can contain a 
number between 0 and 255. A kilobyte is 1024 bytes, so 16K 
RAM contains 16384 bytes. 

Character A character is a shape which the computer can 
produce which occupies one space on a 32x22 grid of 
squares. Numbers and letters are characters, and so are signs 
such as commas, full stops, dollar signs and so on. On the 
Spectrum you can make your own characters. 

Character square A character can occupy any position on a 
grid of 32x22 positions on the screen. It must occupy an 
exact position, it cannot be half in one square, half in 
another. Each square on the grid is known as a character 
square. 
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Command Any keyword which actually changes or does 
something is a command. So GOTO, PRINT and LET are 
commands. SIN, for example, is not a command, as it only 
evaluates a number, but does not do anything with it. 

Condition Use of conditions is the essence of computing. IF 
a condition is met, THEN do something. A condition can be 
true or false, there is no intermediate stage. A true condition 
has a value 1, a false one, 0. So LET A = A+(INKEY$ = 
‘8’) will add 1 to A if the 8 key is pressed, but otherwise leave 
A as it was before. 

Co-ordinate Any position on the screen can be specified by 
two co-ordinates. For characters, the first co-ord is the Y co¬ 
ord, with zero at the top of the screen, and the second is the 
X co-ord, with zero to the left. For plotted points, the X co¬ 
ord is first (zero to left) and then the Y co-ord (zero at bottom 
of screen). Print co-ords are the same on ZX81 and 
Spectrum, plot co-ords are different. 

Core program The central routine of a program, where all 
other routines eventually go back to, is the core program. 
The term also refers to the simplest form of a program, to 
which other parts are gradually added. 

CPU Central processing unit. On the ZX81 and Spectrum it 
is the Z80A, one of the best CPUs around. 

Cursor The inverse character which you move along program 
lines when typing them in or editing them. The cursor 
controls, keys 5, 6, 7 and 8, have arrows on them, and are 
used as control keys in many games because of this. 


Data list It is usually convenient to put all the DATA state¬ 
ments at the end of a program in a data list. On the ZX81 
and the Spectrum much information may be stored in string 
arrays, and this too is a sort of data list. 

Degrees Generally, when dealing with geometry we use 
degrees, where there are 360 degrees in a circle. The 
computer does not use degrees, but radians. There are 2xPI 
radians in a circle. 
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Dimensions When an array is set up, it is DIMensioned, e.g., 
DIM A(10,10). The number of dimensions here is 2. DIM 
A$ (4,6,9,3) has 4 dimensions. 

Display This refers to the screen and in this book is generally 
confined to the easily accessible part, i.e., the top 22 
character rows. There are two more lines at the bottom, used 
for errors, etc., and these can be POKEd into, but it is rather 
inconvenient. 

Element A single number in an array or letter in a string array 
is known as an element. 

False If a condition is logically false, its value is zero. 

FAST mode On the ZX81 only, FAST mode is available. 
Here the computer works at approximately four times its 
normal speed, but cannot keep the screen going as well. This 
means that during calculations, the screen goes blank. 

Flickering screen When in FAST mode, a ZX81 has a flicker¬ 
ing screen. Using PAUSE, even in SLOW mode, also causes 
a slight flicker and I have therefore tried to avoid its use in 
programs. On the Spectrum, there is no flicker due to 
PAUSE. 

Floating point Floating point arithmetic means that the 
computer keeps separate the digits of a number from the 
position of the point, just like a normal calculator. 

Flow chart This is a convenient way of planning a program. 
You write out the main routines of a program in boxes, such 
as ‘move man’, ‘move alien’, ‘see if they meet’ and put arrows 
between them to show what happens when a routine is 
finished. This can often help to guide you when actually 
making the program and checks that there are no loose ends. 

Graphic letter This refers to the Spectrum letters A to U 
which are produced when one letter is typed while the 
machine is in graphics mode. They are used when making 
your own user-defined graphics, and actually change their 
appearance in the listing. For this reason, I have used CHR$ 
followed by the code of the character wherever possible. 
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Graphics This is the general term for all the characters used 
for picture making and includes user-defined graphics as 
well. 

Grey characters Some of the low-res graphics on the ZX81 
contain grey patches - actually a fine chessboard pattern of 
black and white which appears grey. On the Spectrum these 
characters are not available, but you can define your own. 

Hardware The actual computer, the printer and cassette 
machine all come under the heading hardware. 

Hexadecimal Base 16. After 9 in hexadecimal you count A, 
B, C, D, E, F, 10. 10 hex is 16 in base 10. Hexadecimal, or 
hex, is used widely for machine code, as any 8-bit binary 
number can be represented by 2 hex digits. 

High-resolution graphics High-res graphics on the Spectrum 
are concerned with the PLOT, DRAW and CIRCLE 
commands, as these can be used anywhere on the screen. 
User-defined graphics are not true high-res, as these have to 
occupy character squares: a UDG cannot be half in one 
square, half in another. 

INVERSE An inverse character is one where the foreground 
and background colours have been swapped. These are 
available by pressing SHIFT GRAPHICS and a key on the 
ZX81 and by using INVERSE VIDEO on the Spectrum. 

Keywords All the ZX81 and Spectrum commands can be 
found on, above or beneath the keys. You never have to type 
a command in letter by letter, although you may have to press 
three different keys to get a keyword. This may be a little 
awkward at first, especially to those changing frequently 
between ZX81 and Spectrum, but eventually you will find 
it easy and convenient. 

Kilobytes A kilobyte is 1024 bytes and is usually abbreviated 
to K. So a ZX81 with IK RAM contains 1024 bytes of 
memory for programs. However, some of this is used for the 
screen, and more for variables, cutting down on available 
memory. 
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Listing You will probably learn more about computer 
programming from examining listings of programs than in 
any other way. It helps if the listing is clearly set out, with 
line numbers in steps of 10, and each section of the program 
starting at the next hundred or thousand. Program 
descriptions should be at the very beginning (if short) or at 
the very end of the program, along with initial variables and 
arrays. This leaves the main program clear and uncluttered 
and relatively easy to follow. 

Low-resolution graphics This refers to graphics which 
occupy a quarter or more of a character square. On the ZX81 
this includes PLOT and UNPLOT as well as the block 
graphics. On the Spectrum, PLOT uses high-res graphics 
and so the low-res graphics are confined to the character set 
and any which you may define. 

Main loop routine In many programs there is a central routine 
to which the program always returns. This is called the main 
loop routine, as distinguished from sub-routines. 

Mantissa The mantissa part of a number consists of the actual 
digits and the decimal point or exponent is separate. An 8-bit 
mantissa means that a number is accurate to 8 figures. 

Memory There are two types of memory on the ZX81 and 
Spectrum. ROM (read only memory) stores the Sinclair 
Basic, 8K on the ZX81, 16K on the Spectrum. RAM 
(random access memory) is for your programs and is 1-16K 
on the ZX81 (larger memory available but not from Sinclair), 
and 16-48K on the ZX Spectrum. 

Memory address Each byte in memory has its own address, 
and can be PEEKed at or, if in RAM, POKEd to. Addresses 
in the ROM are from 0 to 16384, and RAM starts directly 
after this. 

Movement vectors When moving an object on screen it is 
often necessary to keep the object’s last position after you 
move it to the next. To do this, we alter the velocities to the 
right and top of the screen rather than changing the co¬ 
ordinates directly. These velocities are called movement 
vectors and show direction and speed rather than position. 
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Nesting FOR-NEXT loops can be placed one inside another, 

gg ^ 

FOR F - 1 TO 10: FOR G = 1 TO 10: 

NEXT G: NEXT F. 

Here the G loop is said to be nested inside the F loop. 


Pixel A pixel is a single dot of black (ink colour). When you 
PLOT, you are plotting a pixel. ZX81 pixels are low-res, 
Spectrum pixels are high-res. 

Plot grid We can think of the screen being made up of a grid 
of squares, each square being able to contain one plotted 
pixel. On the ZX81, this grid is 64 squares horizontally, 44 
vertically, and on the Spectrum, it is 256 by 176 squares. 
Remember that with PLOT, the X co-ord comes first, the 
opposite to PRINT AT, and the Y co-ord is zero at the 
bottom of the screen, whereas it is at the top for PRINT AT. 

Priority All operations have a priority, and the operations are 
carried out in order, highest priority first. Functions have a 
high priority, higher than * and /, which are higher than + 
and —. When using operations, if you wish an operation with 
a lower priority to be carried out first, then bracket it. For 
example, PRINT INT RND *4 will always give 0, as INT 
has a higher priority than *. INT RND is 0, and 0 * 4 is 
0. To get RND*4 to be found first, it must be bracketed, 
giving PRINT INT(RND*4). 

Procrustean Assignment to string arrays is procrustean. This 
means that a string in an array always has the same length. 
In array A$(20,5), A$(l) always has 5 characters. If you type 
LET A$(l) - “RHINOCEROSES”, A$(l) will become 
“RHINO”, as it can only hold 5 characters. If you type let 
A$(l) = “HI”, A$(l) will contain “HI”, followed by 3 
spaces. 

Pseudo random RND is not truly random, but follows a 
fixed sequence of 65536 numbers. By using RAND 
(RANDOMIZE on Spectrum) you can get the computer to 
start at a number determined by how long the computer has 
been on, so giving an unpredictable RND function. 
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Radian The ZX computers use radians rather than degrees. 
(See radian measure, p. 270.) 

RAM Random access memory. This is the memory which 
you use for your programs. However, it is also used by the 
computer to store information on the screen, and some 
variables which it needs. This means that when a program 
runs it uses more memory and you do not have all the RAM 
to yourself even without a program. The ZX81 uses about 
0.7K RAM for the screen, leaving little memory on a IK 
ZX81. A Spectrum uses about 6.7K for the screen (due to 
the colour and high-res) which means that a 16K Spectrum 
has less programming space than a 16K ZX81! 

Real time Games that use real time are the types where, if you 
just sit back and think, something will happen to you. The 
computer has a systems variable FRAMES which actually 
counts fiftieths of a second. Real time games generally use 
INKEY$ in a loop rather than INPUT. 

ROM Read only memory. The ROM contains the Sinclair 
Basic. The larger the ROM, in general, the more commands 
and functions are available on a computer. 

Rounding off/down INT always rounds a number down, 
removing everything after the decimal point. To round off, 
use INT(Number+.5). 

Scientific notation For larger numbers, it is convenient to 
give a number less than 10 multiplied by a power of 10. This 
is called scientific notation. 6.35 x 10 8 is easier to read than 
635000000, and for larger numbers, such as 4.93xl0 27 , 
writing out all the zeros is a waste of time. 

Scrolling The ZX81 has a keyword command SCROLL. The 
Spectrum does not, but you can get one by using POKE 
23692,255: PRINT AT 21,0: PRINT. 

Shift The ZX81 has one shift key (and function), the 
Spectrum has two. These are used to get many of the 
keywords. 

Software This refers to all the programs and attendant 
literature for your computer. This book is software, and so 
are cassettes of programs. 
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Systems variables These are variables used by the computer. 
Their names are mnemonics only and are not recognized by 
the computer. Some, such as FRAMES, can be useful to 
PEEK at for specific purposes. 

True If a statement is logically true it has a value 1. 

Undefined variable A variable which is not initially given a 
value is undefined and will cause the program to crash when 
it is used. 

User-defined graphic On the Spectrum, you can design your 
own shapes, letters and symbols on 8 by 8 grids. The ability 
to make user-defined graphics is one of the most useful 
Spectrum features. 

Variables Variables used to hold scores, screen co-ordinates 
and string variables containing words required in a program 
have to be set (defined) initially, and this is usually done at 
the end of the program listing. This means that early in the 
program there will be a line such as GOTO 8000 to set up 
these variables. 

X co-ordinate This refers to how far along left to right on the 
screen an object is. The X co-ordinate starts at 0 on the left, 
and ends at column 31 on the right for PRINTing, 63 for 
PLOTting on the ZX81, and 255 for PLOTting on the 
Spectrum. 

Y co-ordinate This refers to how far up the screen an object 
is for PLOTting. It runs from 0 at the bottom, to 43 on the 
top for ZX81 plotting, and 175 on the Spectrum. For PRINT 
AT it starts at the top of the screen at 0, and goes down to 
fine 21 at the bottom. This is rather confusing. In programs 
I generally use PLOT X,Y but PRINT AT Y,X, to act as 
a reminder of which axis is which. 
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When we use trigonometry, in general we use degrees. There 
are 360 degrees in a circle. 

The computer uses radians, and there are 2* PI radians in 
a circle. To convert from degrees to radians, use: 

number of radians = number of degrees * PI/180 
and to convert from radians to degrees, use: 

number of degrees = number of radians * 180/PI 

so 180 degrees is PI radians, 90 degrees is PI/2 radians and so 
on. Remember that SIN, COS, TAN and their inverses all 
operate on radians, so if in a formula you use SIN 37, on the 
computer use SIN(37 x PI/180). 

If in a program the user inputs degrees, and the final answer 
uses degrees, it is necessary at the beginning to change the 
inputted values to radians, and then convert back at the end. 

On the Spectrum, DRAWing curves uses radians to get the 
angle of curve. So to draw a semicircle, use DRAW x,y, PI and 
to draw a 60-degree arc use DRAW x, y, PI/3. 

Just as for degrees, a small circle is used as a superscript, e.g., 
60°; for radians a superscript c is used, e.g., 1.3 C is 1.3 radians 
or approximately 74*/2 degrees. 


Logic 

A logical expression is one using AND, or OR, or NOT, or one 
which uses =, <,or >. 

If a statement is logically true, it has a value of 1, if logically 
false, a value of 0. This is very useful in programs. For instance, 
that is how a command like LET X = X+(INKEY$ = 
‘8’)—(INKEY$ = ‘5’) +(X<2)—(X>30) works. Each bracket 
contains a logical condition which can be either true or false. 
Say that X = 3. When the program comes to the line above. 
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if key 8 is pressed, (INKEY$ = ‘8’) is logically true, and has 
a value of 1. X is thus increased by 1. If the key is not pressed 
(INKEY$ = ‘8’) is logically false, and X is unchanged. Note 
the -(INKEY$ = ‘5’) which decreases X by 1 if key 5 is 
pressed. 

This sort of program line is much shorter than 

IF INKEY$ = “8” THEN LET X = X+1 
IF INKEY$ = “5” THEN LET X = X-1 
IF X <2 THEN.. .and so on. 

Condensing a program by using logic will speed it up quite 
appreciably, as the computer takes more time to carry out IF 
statements that simple logical commands. 


IN command 

In the Spectrum manual, there is a short chapter on IN and 
OUT. These commands will be useful for controlling hardware 
attached to the Spectrum. However, IN has one very useful 
software application - we can use it to read the keyboard. 
Although INKEY$ is easier to use, it cannot register 2 keys 
being pressed at the same time. With IN, however, pressing 2 
keys will give a different signal to pressing 1 key. 

The keys are grouped in half-rows, each group containing 5 
keys. When no key is being pressed, IN will give a value of 255 
for that address. Pressing the key nearest the centre of the key¬ 
board (e.g., key 5 in the top left half-row) will reduce this by 
one, the next key out will reduce it by 2, the next by 4, the next 
by 8, and the outermost will reduce the value by 16. Thus any 
combination of keys can be recognized. This can be very useful 
to add extra features to some games, where you can move and 
fire at the same time or press 2 movement keys to move in a 
direction between the two. Another idea is to produce 2 player 
games, one player versus the other. One player can use the 
bottom left half-row (CAPS SHIFT to V) and the other can use 
the top right half-row (0 to 6). 
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The 8 addresses that IN uses to read the keyboard are given 
at the end of the IN chapter in the Spectrum user’s manual. 


Some useful PEEKs and POKEs 

The systems variables on the ZX81 and Spectrum contain some 
useful values which can be PEEKed at and in some cases 
POKEd to. Here are a few you may find that you need: 


ZX81 

PEEK(PEEK 16398+256* PEEK 16399). This gives the code 
of the character in the screen position last PRINTed at. If 
you wish to know what character is at a particular position, 
say (Y,X) use PRINT AT Y,X;. 

PRINT CHR$ PEEK(PEEK 16398 +256* PEEK 16399). 
This is very useful to detect collisions in games. 

PRINT PEEK 16404+256*PEEK 16405-16384. This gives 
you an idea of how much RAM is used up by a program. 
BREAKing a program and doing this PEEK will give how 
much memory is used altogether including the screen and 
variables, by the program. 

PEEK 16436+256*PEEK 16437. The ZX81 version of 
FRAMES. You can POKE these addresses to some value 
and use them as a countdown, counting down 50 every 
second. However, as PAUSE uses this, its use may be 
limited. Also, have RAND (if used) before you POKE 
FRAMES, or you may end up with predetermined ‘random’ 
numbers! 

PEEK 16438 and PEEK 16439. These give the X+Y co-ords 
of last PLOTted point. This can be useful to check if a 
PLOTted object goes through a particular point on the 
screen. 
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Spectrum 

POKE 23561,n This gives the time that a key must be held 
down before repeating in fiftieths of a second. Initially 35, 
this can be POKEd to 255, for virtually no repeat, or other 
convenient values. 

POKE 23562,n Delay in fiftieths of a second between 
successive repeats of a key. This starts at 5, but for editing 
programs, 1 is a more suitable value. 

POKE 23606,m: POKE 23607,n For extra UDGs, and your 
own customized character set, POKE this systems variable 
CHARS to somewhere in RAM. This is discussed in 
Extending User-defined Graphics (pp. 48-55). 

POKE 23609,n This variable PIP gives the keyboard click 
length. Increasing its value to about 35 will give a more 
audible beep. 

PEEK 23672, PEEK 23673, PEEK 23674 Spectrum 
FRAMES. Can be POKEd to any value. Runs for nearly four 
days before resetting. You can set up user-defined functions 
to PEEK at FRAMES conveniently. 

POKE 23692,255 Scroll counter. POKEing this to 255 during 
a program stops the computer asking ‘scroll?’ when there is 
no space on the screen. 
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ZX81 and Spectrum report codes 

Code 

0 Successful completion of program/command. 

1 NEXT without FOR. See if you have accidentally started the 
loop with a different name. 

2 Undefined variable. Check that variable is necessary and not 
mis-typed. If variable needed, make sure the program 
defines the variable in a LET or DIM statement before that 
part of the program. 

3 Subscript out of range. Check that array is DIMensioned big 
enough, and that the subscript is within the required range 
if it is chosen using a complicated function. 

4 Not enough room in memory. Programs can be reduced by 
shortening or omitting rules, tidying up to remove spare 
GOTO’s and changing numeric to string arrays. If short 
program inexplicably uses up 16K, check that arrays have 
not been dimensioned too big. 

5 No room on screen. PRINTing AT a y value of greater than 
21, or forgetting to use scrolling and CLS can lead to this. 
Adding SCROLL or equivalent Spectrum POKE, or using 
CLS will cure this. 

6 Arithmetic overflow. Number greater than 10 38 generated. 
Check program for arithmetical errors. 

7 RETURN without GOSUB. Check that you have not used 
GOTO to reach a sub-routine, and that the RETURN should 
not be a GOTO. 

8 ZX81: INPUT as a direct command. Spectrum: End of file. 
Used with microdrive. 

9 STOP statement. Useful to halt program at key points to 
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locate problems. Use CONT (CONTINUE on Spectrum) to 
carry on from next line. 

A Invalid argument. Typically SQR for negative numbers, 
ASN for numbers larger than one and similar. 

B Integer out of range. Check for arithmetical errors in 
GOTOs, GOSUBs, POKEs, etc. 

C Text of a string argument is invalid for VAL (and VAL$ on 
Spectrum). Check that string which is being VALued has no 
excess spaces, letters, etc. 

D BREAK pressed (during SAVE, LOAD, etc. on 
Spectrum). Also (ZX81 only) STOP at beginning of 
INPUTteddata. 

E Spectrum only. Out of data. Check lengths of FOR-NEXT 
loops reading DATA, where you have RESTOREd and that 
you have enough DATA. 

F Invalid file name SAVE using empty string (or on the 
Spectrum one longer than 10 characters). 


From now on Spectrum only: 

G No room for line in memory. Wipe out line, CLEAR, reduce 
program and try again. 

H STOP in INPUTteddata. 

I FOR without NEXT. Incorrect FOR loop, e.g., FOR F = 
1 TO 0 without NEXT. Change FOR loop. 

J Invalid input/output device. For Microdrive, etc. 

K Invalid colour. Check INK, PAPER, BRIGHT and similar 
statements, especially if they use expressions to give colours. 
BREAK pressed during program. 

RAMTOP no good. You have CLEARed at too large or 
(more likely) too small a number for RAMTOP. CLEAR to 
a larger number. 

N Statement lost. Typically in direct commands when you 
type them in wrong. 

O Invalid stream. Used with Microdrive, etc. 

P FN without DEF. Make sure your function is called what 
you think it is. DEFine FuNctions before using them. 
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Q Parameter error. Check FN statements to make sure that 
there are the right number of arguments, and that they are 
of the right type. 

R Tape-loading error. Check cassette for faults, and re-SAVE 
program on different cassette making sure that volume and 
other settings on the cassette recorder are correct. 
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Memory Address 266 
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Nesting 267 
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P 

Palette 22-3 
PAPER 15,24,195 
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Stars and Stripes 18-20 

STOP 67 

Systems variables 269 

User-defined graphics 22,23,24, 
34-55, 56, 99, 100, 126, 186, 
.194, 195,262,265,269 
User-defined Graphic Designer 
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T 

Vapours on Venus 204-7 

Text display 151-2 

3-D Maze 72-84 

TRUE VIDEO 16,17 

2 x Res Colour Pattern 23-4 

W 

Wave Addition 118-21 

U 

Undefined variable 269 
User-defined function (see Func¬ 
tion, user-defined) 

Z 

ZX Printer 22, 146, 246, 254, 
256 








BETTER PROGRAMMING FOR YOUR 
SPECTRUM AND ZX81 

will help you develop great games and serious programs for 
your Spectrum or ZX81. There are over 40 programs, each 
explained in detail so you'll understand exactly how the 
programs work and how to apply the techniques to your own 
programs. PEEK and POKE, high-resolution graphics, colour 
and sound - they're all covered. 

The book teaches you better programming techniques and 
will help you get the very best from your computer. 

Outstanding programs include: 

- play your ZX81 on a graphically illustrated 
18-hole golf course. 

AMAZE - you bufld theznaze, and the computer solves it! 
Machine intelligence in action. 

H — a major ADVENTURE program in which you 

— a young warrior of noble birth - must prove your valour by 
battling with the elements, dangers and monsters of the 
caverns of power. 

- jostle in a medieval joust with mounted 
knights. If you are knocked off your steed, the fight continues 
on foot. 

'3, - solve the maze of the century, with every 

twist and turn of your path shown in 'three dimensions'. 
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